/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / c-mode.elc.z / c-mode.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 61 72 6c 69 65 2d | 62 72 6f 77 6e 2e 67 6e |charlie-|brown.gn|
|00000030| 75 2e 61 69 2e 6d 69 74 | 2e 65 64 75 20 6f 6e 20 |u.ai.mit|.edu on |
|00000040| 57 65 64 20 46 65 62 20 | 32 31 20 30 32 3a 32 38 |Wed Feb |21 02:28|
|00000050| 3a 35 33 20 31 39 39 36 | 0a 3b 3b 3b 20 66 72 6f |:53 1996|.;;; fro|
|00000060| 6d 20 66 69 6c 65 20 2f | 67 64 2f 67 6e 75 2f 65 |m file /|gd/gnu/e|
|00000070| 6d 61 63 73 2f 31 39 2e | 30 2f 6c 69 73 70 2f 63 |macs/19.|0/lisp/c|
|00000080| 2d 6d 6f 64 65 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |-mode.el|.;;; ema|
|00000090| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 33 30 |cs versi|on 19.30|
|000000a0| 2e 39 31 2e 34 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |.91.4..;|;; bytec|
|000000b0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 46 53 46 20 |omp vers|ion FSF |
|000000c0| 32 2e 31 30 0a 3b 3b 3b | 20 6f 70 74 69 6d 69 7a |2.10.;;;| optimiz|
|000000d0| 61 74 69 6f 6e 20 69 73 | 20 6f 6e 2e 0a 3b 3b 3b |ation is| on..;;;|
|000000e0| 20 74 68 69 73 20 66 69 | 6c 65 20 75 73 65 73 20 | this fi|le uses |
|000000f0| 6f 70 63 6f 64 65 73 20 | 77 68 69 63 68 20 64 6f |opcodes |which do|
|00000100| 20 6e 6f 74 20 65 78 69 | 73 74 20 69 6e 20 45 6d | not exi|st in Em|
|00000110| 61 63 73 20 31 38 2e 0a | 0a 28 69 66 20 28 61 6e |acs 18..|.(if (an|
|00000120| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000130| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000140| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000150| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|00000160| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|00000170| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 |    (str|ing-less|
|00000180| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|00000190| 22 31 39 2e 32 39 22 29 | 29 29 0a 20 20 20 20 28 |"19.29")|)).    (|
|000001a0| 65 72 72 6f 72 20 22 60 | 63 2d 6d 6f 64 65 2e 65 |error "`|c-mode.e|
|000001b0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|000001c0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 2e 32 39 20 |for Emac|s 19.29 |
|000001d0| 6f 72 20 6c 61 74 65 72 | 22 29 29 0a 0a 0a 23 40 |or later|"))...#@|
|000001e0| 33 32 20 41 62 62 72 65 | 76 20 74 61 62 6c 65 20 |32 Abbre|v table |
|000001f0| 69 6e 20 75 73 65 20 69 | 6e 20 43 20 6d 6f 64 65 |in use i|n C mode|
|00000200| 2e 1f 0a 28 64 65 66 76 | 61 72 20 63 2d 6d 6f 64 |...(defv|ar c-mod|
|00000210| 65 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 6e |e-abbrev|-table n|
|00000220| 69 6c 20 28 23 24 20 2e | 20 34 38 33 29 29 0a 28 |il (#$ .| 483)).(|
|00000230| 64 65 66 69 6e 65 2d 61 | 62 62 72 65 76 2d 74 61 |define-a|bbrev-ta|
|00000240| 62 6c 65 20 28 71 75 6f | 74 65 20 63 2d 6d 6f 64 |ble (quo|te c-mod|
|00000250| 65 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 29 20 |e-abbrev|-table) |
|00000260| 6e 69 6c 29 0a 23 40 32 | 34 20 4b 65 79 6d 61 70 |nil).#@2|4 Keymap|
|00000270| 20 75 73 65 64 20 69 6e | 20 43 20 6d 6f 64 65 2e | used in| C mode.|
|00000280| 1f 0a 28 64 65 66 76 61 | 72 20 63 2d 6d 6f 64 65 |..(defva|r c-mode|
|00000290| 2d 6d 61 70 20 28 6d 61 | 6b 65 2d 73 70 61 72 73 |-map (ma|ke-spars|
|000002a0| 65 2d 6b 65 79 6d 61 70 | 29 20 28 23 24 20 2e 20 |e-keymap|) (#$ . |
|000002b0| 36 31 38 29 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |618)).(b|yte-code|
|000002c0| 20 22 c0 09 c2 c3 23 88 | c0 09 c4 c3 23 88 c0 09 | "....#.|....#...|
|000002d0| c5 c6 23 88 c0 09 c7 c8 | 23 88 c0 09 c9 ca 23 88 |..#.....|#.....#.|
|000002e0| c0 09 cb cc 23 88 c0 09 | cd ce 23 88 c0 09 cf d0 |....#...|..#.....|
|000002f0| 23 88 c0 09 d1 d2 23 88 | c0 09 d3 d4 23 88 c0 09 |#.....#.|....#...|
|00000300| d5 d6 23 88 c0 09 d7 d8 | 23 88 c0 09 d9 da 23 88 |..#.....|#.....#.|
|00000310| c0 09 db dc 23 88 c0 09 | dd de 20 23 88 c0 09 df |....#...|.. #....|
|00000320| e0 de e0 21 42 23 88 c0 | 09 e1 e2 23 88 c0 09 e3 |...!B#..|...#....|
|00000330| e4 23 88 c0 09 e5 e6 23 | 88 c0 09 e7 e8 23 88 c0 |.#.....#|.....#..|
|00000340| 09 e9 ea 23 88 c0 09 eb | ec 23 88 c0 09 ed ee 23 |...#....|.#.....#|
|00000350| 88 c0 09 ef f0 23 88 c0 | 09 f1 f2 23 88 c0 09 f3 |.....#..|...#....|
|00000360| f4 23 88 c0 09 f5 f6 23 | 88 c0 09 f7 f8 23 88 f9 |.#.....#|.....#..|
|00000370| fa fb fc 23 88 f9 fd fb | fc 23 88 f9 fe fb fc 23 |...#....|.#.....#|
|00000380| 87 22 20 5b 64 65 66 69 | 6e 65 2d 6b 65 79 20 63 |." [defi|ne-key c|
|00000390| 2d 6d 6f 64 65 2d 6d 61 | 70 20 22 7b 22 20 65 6c |-mode-ma|p "{" el|
|000003a0| 65 63 74 72 69 63 2d 63 | 2d 62 72 61 63 65 20 22 |ectric-c|-brace "|
|000003b0| 7d 22 20 22 3b 22 20 65 | 6c 65 63 74 72 69 63 2d |}" ";" e|lectric-|
|000003c0| 63 2d 73 65 6d 69 20 22 | 23 22 20 65 6c 65 63 74 |c-semi "|#" elect|
|000003d0| 72 69 63 2d 63 2d 73 68 | 61 72 70 2d 73 69 67 6e |ric-c-sh|arp-sign|
|000003e0| 20 22 3a 22 20 65 6c 65 | 63 74 72 69 63 2d 63 2d | ":" ele|ctric-c-|
|000003f0| 74 65 72 6d 69 6e 61 74 | 6f 72 20 22 1b 08 22 20 |terminat|or ".." |
|00000400| 6d 61 72 6b 2d 63 2d 66 | 75 6e 63 74 69 6f 6e 20 |mark-c-f|unction |
|00000410| 22 1b 11 22 20 69 6e 64 | 65 6e 74 2d 63 2d 65 78 |".." ind|ent-c-ex|
|00000420| 70 20 22 1b 61 22 20 63 | 2d 62 65 67 69 6e 6e 69 |p ".a" c|-beginni|
|00000430| 6e 67 2d 6f 66 2d 73 74 | 61 74 65 6d 65 6e 74 20 |ng-of-st|atement |
|00000440| 22 1b 65 22 20 63 2d 65 | 6e 64 2d 6f 66 2d 73 74 |".e" c-e|nd-of-st|
|00000450| 61 74 65 6d 65 6e 74 20 | 22 03 0e 22 20 63 2d 66 |atement |".." c-f|
|00000460| 6f 72 77 61 72 64 2d 63 | 6f 6e 64 69 74 69 6f 6e |orward-c|ondition|
|00000470| 61 6c 20 22 03 10 22 20 | 63 2d 62 61 63 6b 77 61 |al ".." |c-backwa|
|00000480| 72 64 2d 63 6f 6e 64 69 | 74 69 6f 6e 61 6c 20 22 |rd-condi|tional "|
|00000490| 03 15 22 20 63 2d 75 70 | 2d 63 6f 6e 64 69 74 69 |.." c-up|-conditi|
|000004a0| 6f 6e 61 6c 20 22 7f 22 | 20 62 61 63 6b 77 61 72 |onal "."| backwar|
|000004b0| 64 2d 64 65 6c 65 74 65 | 2d 63 68 61 72 2d 75 6e |d-delete|-char-un|
|000004c0| 74 61 62 69 66 79 20 22 | 09 22 20 63 2d 69 6e 64 |tabify "|." c-ind|
|000004d0| 65 6e 74 2d 63 6f 6d 6d | 61 6e 64 20 5b 6d 65 6e |ent-comm|and [men|
|000004e0| 75 2d 62 61 72 5d 20 6d | 61 6b 65 2d 73 70 61 72 |u-bar] m|ake-spar|
|000004f0| 73 65 2d 6b 65 79 6d 61 | 70 20 5b 6d 65 6e 75 2d |se-keyma|p [menu-|
|00000500| 62 61 72 20 63 5d 20 22 | 43 2d 6d 6f 64 65 22 20 |bar c] "|C-mode" |
|00000510| 5b 6d 65 6e 75 2d 62 61 | 72 20 63 20 63 6f 6d 6d |[menu-ba|r c comm|
|00000520| 65 6e 74 2d 72 65 67 69 | 6f 6e 5d 20 28 22 43 6f |ent-regi|on] ("Co|
|00000530| 6d 6d 65 6e 74 20 4f 75 | 74 20 52 65 67 69 6f 6e |mment Ou|t Region|
|00000540| 22 20 2e 20 63 6f 6d 6d | 65 6e 74 2d 72 65 67 69 |" . comm|ent-regi|
|00000550| 6f 6e 29 20 5b 6d 65 6e | 75 2d 62 61 72 20 63 20 |on) [men|u-bar c |
|00000560| 63 2d 6d 61 63 72 6f 2d | 65 78 70 61 6e 64 5d 20 |c-macro-|expand] |
|00000570| 28 22 4d 61 63 72 6f 20 | 45 78 70 61 6e 64 20 52 |("Macro |Expand R|
|00000580| 65 67 69 6f 6e 22 20 2e | 20 63 2d 6d 61 63 72 6f |egion" .| c-macro|
|00000590| 2d 65 78 70 61 6e 64 29 | 20 5b 6d 65 6e 75 2d 62 |-expand)| [menu-b|
|000005a0| 61 72 20 63 20 63 2d 62 | 61 63 6b 73 6c 61 73 68 |ar c c-b|ackslash|
|000005b0| 2d 72 65 67 69 6f 6e 5d | 20 28 22 42 61 63 6b 73 |-region]| ("Backs|
|000005c0| 6c 61 73 68 69 66 79 22 | 20 2e 20 63 2d 62 61 63 |lashify"| . c-bac|
|000005d0| 6b 73 6c 61 73 68 2d 72 | 65 67 69 6f 6e 29 20 5b |kslash-r|egion) [|
|000005e0| 6d 65 6e 75 2d 62 61 72 | 20 63 20 69 6e 64 65 6e |menu-bar| c inden|
|000005f0| 74 2d 65 78 70 5d 20 28 | 22 49 6e 64 65 6e 74 20 |t-exp] (|"Indent |
|00000600| 45 78 70 72 65 73 73 69 | 6f 6e 22 20 2e 20 69 6e |Expressi|on" . in|
|00000610| 64 65 6e 74 2d 63 2d 65 | 78 70 29 20 5b 6d 65 6e |dent-c-e|xp) [men|
|00000620| 75 2d 62 61 72 20 63 20 | 69 6e 64 65 6e 74 2d 6c |u-bar c |indent-l|
|00000630| 69 6e 65 5d 20 28 22 49 | 6e 64 65 6e 74 20 4c 69 |ine] ("I|ndent Li|
|00000640| 6e 65 22 20 2e 20 63 2d | 69 6e 64 65 6e 74 2d 63 |ne" . c-|indent-c|
|00000650| 6f 6d 6d 61 6e 64 29 20 | 5b 6d 65 6e 75 2d 62 61 |ommand) |[menu-ba|
|00000660| 72 20 63 20 66 69 6c 6c | 5d 20 28 22 46 69 6c 6c |r c fill|] ("Fill|
|00000670| 20 43 6f 6d 6d 65 6e 74 | 20 50 61 72 61 67 72 61 | Comment| Paragra|
|00000680| 70 68 22 20 2e 20 63 2d | 66 69 6c 6c 2d 70 61 72 |ph" . c-|fill-par|
|00000690| 61 67 72 61 70 68 29 20 | 5b 6d 65 6e 75 2d 62 61 |agraph) |[menu-ba|
|000006a0| 72 20 63 20 63 70 70 2d | 68 69 67 68 6c 69 67 68 |r c cpp-|highligh|
|000006b0| 74 2d 62 75 66 66 65 72 | 5d 20 28 22 48 69 67 68 |t-buffer|] ("High|
|000006c0| 6c 69 67 68 74 20 43 6f | 6e 64 69 74 69 6f 6e 61 |light Co|nditiona|
|000006d0| 6c 73 22 20 2e 20 63 70 | 70 2d 68 69 67 68 6c 69 |ls" . cp|p-highli|
|000006e0| 67 68 74 2d 62 75 66 66 | 65 72 29 20 5b 6d 65 6e |ght-buff|er) [men|
|000006f0| 75 2d 62 61 72 20 63 20 | 75 70 5d 20 28 22 55 70 |u-bar c |up] ("Up|
|00000700| 20 43 6f 6e 64 69 74 69 | 6f 6e 61 6c 22 20 2e 20 | Conditi|onal" . |
|00000710| 63 2d 75 70 2d 63 6f 6e | 64 69 74 69 6f 6e 61 6c |c-up-con|ditional|
|00000720| 29 20 5b 6d 65 6e 75 2d | 62 61 72 20 63 20 62 61 |) [menu-|bar c ba|
|00000730| 63 6b 77 61 72 64 5d 20 | 28 22 42 61 63 6b 77 61 |ckward] |("Backwa|
|00000740| 72 64 20 43 6f 6e 64 69 | 74 69 6f 6e 61 6c 22 20 |rd Condi|tional" |
|00000750| 2e 20 63 2d 62 61 63 6b | 77 61 72 64 2d 63 6f 6e |. c-back|ward-con|
|00000760| 64 69 74 69 6f 6e 61 6c | 29 20 5b 6d 65 6e 75 2d |ditional|) [menu-|
|00000770| 62 61 72 20 63 20 66 6f | 72 77 61 72 64 5d 20 28 |bar c fo|rward] (|
|00000780| 22 46 6f 72 77 61 72 64 | 20 43 6f 6e 64 69 74 69 |"Forward| Conditi|
|00000790| 6f 6e 61 6c 22 20 2e 20 | 63 2d 66 6f 72 77 61 72 |onal" . |c-forwar|
|000007a0| 64 2d 63 6f 6e 64 69 74 | 69 6f 6e 61 6c 29 20 5b |d-condit|ional) [|
|000007b0| 6d 65 6e 75 2d 62 61 72 | 20 63 20 62 61 63 6b 77 |menu-bar| c backw|
|000007c0| 61 72 64 2d 73 74 6d 74 | 5d 20 28 22 42 61 63 6b |ard-stmt|] ("Back|
|000007d0| 77 61 72 64 20 53 74 61 | 74 65 6d 65 6e 74 22 20 |ward Sta|tement" |
|000007e0| 2e 20 63 2d 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |. c-begi|nning-of|
|000007f0| 2d 73 74 61 74 65 6d 65 | 6e 74 29 20 5b 6d 65 6e |-stateme|nt) [men|
|00000800| 75 2d 62 61 72 20 63 20 | 66 6f 72 77 61 72 64 2d |u-bar c |forward-|
|00000810| 73 74 6d 74 5d 20 28 22 | 46 6f 72 77 61 72 64 20 |stmt] ("|Forward |
|00000820| 53 74 61 74 65 6d 65 6e | 74 22 20 2e 20 63 2d 65 |Statemen|t" . c-e|
|00000830| 6e 64 2d 6f 66 2d 73 74 | 61 74 65 6d 65 6e 74 29 |nd-of-st|atement)|
|00000840| 20 70 75 74 20 63 6f 6d | 6d 65 6e 74 2d 72 65 67 | put com|ment-reg|
|00000850| 69 6f 6e 20 6d 65 6e 75 | 2d 65 6e 61 62 6c 65 20 |ion menu|-enable |
|00000860| 6d 61 72 6b 2d 61 63 74 | 69 76 65 20 63 2d 6d 61 |mark-act|ive c-ma|
|00000870| 63 72 6f 2d 65 78 70 61 | 6e 64 20 63 2d 62 61 63 |cro-expa|nd c-bac|
|00000880| 6b 73 6c 61 73 68 2d 72 | 65 67 69 6f 6e 5d 20 36 |kslash-r|egion] 6|
|00000890| 29 0a 23 40 31 34 31 20 | 44 69 73 70 6c 61 79 20 |).#@141 |Display |
|000008a0| 74 68 65 20 72 65 73 75 | 6c 74 20 6f 66 20 65 78 |the resu|lt of ex|
|000008b0| 70 61 6e 64 69 6e 67 20 | 61 6c 6c 20 43 20 6d 61 |panding |all C ma|
|000008c0| 63 72 6f 73 20 6f 63 63 | 75 72 72 69 6e 67 20 69 |cros occ|urring i|
|000008d0| 6e 20 74 68 65 20 72 65 | 67 69 6f 6e 2e 0a 54 68 |n the re|gion..Th|
|000008e0| 65 20 65 78 70 61 6e 73 | 69 6f 6e 20 69 73 20 65 |e expans|ion is e|
|000008f0| 6e 74 69 72 65 6c 79 20 | 63 6f 72 72 65 63 74 20 |ntirely |correct |
|00000900| 62 65 63 61 75 73 65 20 | 69 74 20 75 73 65 73 20 |because |it uses |
|00000910| 74 68 65 20 43 20 70 72 | 65 70 72 6f 63 65 73 73 |the C pr|eprocess|
|00000920| 6f 72 2e 1f 0a 28 61 75 | 74 6f 6c 6f 61 64 20 28 |or...(au|toload (|
|00000930| 71 75 6f 74 65 20 63 2d | 6d 61 63 72 6f 2d 65 78 |quote c-|macro-ex|
|00000940| 70 61 6e 64 29 20 22 63 | 6d 61 63 65 78 70 22 20 |pand) "c|macexp" |
|00000950| 27 28 23 24 20 2e 20 32 | 32 30 30 29 20 74 29 0a |'(#$ . 2|200) t).|
|00000960| 23 40 34 30 20 53 79 6e | 74 61 78 20 74 61 62 6c |#@40 Syn|tax tabl|
|00000970| 65 20 69 6e 20 75 73 65 | 20 69 6e 20 43 2d 6d 6f |e in use| in C-mo|
|00000980| 64 65 20 62 75 66 66 65 | 72 73 2e 1f 0a 28 64 65 |de buffe|rs...(de|
|00000990| 66 76 61 72 20 63 2d 6d | 6f 64 65 2d 73 79 6e 74 |fvar c-m|ode-synt|
|000009a0| 61 78 2d 74 61 62 6c 65 | 20 6e 69 6c 20 28 23 24 |ax-table| nil (#$|
|000009b0| 20 2e 20 32 34 30 35 29 | 29 0a 28 62 79 74 65 2d | . 2405)|).(byte-|
|000009c0| 63 6f 64 65 20 22 08 84 | 4f 00 c1 20 10 c2 c3 c4 |code "..|O.. ....|
|000009d0| 08 23 88 c2 c5 c6 08 23 | 88 c2 c7 c8 08 23 88 c2 |.#.....#|.....#..|
|000009e0| c9 ca 08 23 88 c2 cb ca | 08 23 88 c2 cc ca 08 23 |...#....|.#.....#|
|000009f0| 88 c2 cd ca 08 23 88 c2 | ce ca 08 23 88 c2 cf ca |.....#..|...#....|
|00000a00| 08 23 88 c2 d0 ca 08 23 | 88 c2 d1 ca 08 23 88 c2 |.#.....#|.....#..|
|00000a10| d2 d3 08 23 88 c1 87 22 | 20 5b 63 2d 6d 6f 64 65 |...#..."| [c-mode|
|00000a20| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 6d 61 |-syntax-|table ma|
|00000a30| 6b 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |ke-synta|x-table |
|00000a40| 6d 6f 64 69 66 79 2d 73 | 79 6e 74 61 78 2d 65 6e |modify-s|yntax-en|
|00000a50| 74 72 79 20 39 32 20 22 | 5c 5c 22 20 34 37 20 22 |try 92 "|\\" 47 "|
|00000a60| 2e 20 31 34 22 20 34 32 | 20 22 2e 20 32 33 22 20 |. 14" 42| ". 23" |
|00000a70| 34 33 20 22 2e 22 20 34 | 35 20 36 31 20 33 37 20 |43 "." 4|5 61 37 |
|00000a80| 36 30 20 36 32 20 33 38 | 20 31 32 34 20 33 39 20 |60 62 38| 124 39 |
|00000a90| 22 5c 22 22 5d 20 34 29 | 0a 23 40 36 34 20 2a 49 |"\""] 4)|.#@64 *I|
|00000aa0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 6f 66 20 43 20 |ndentati|on of C |
|00000ab0| 73 74 61 74 65 6d 65 6e | 74 73 20 77 69 74 68 20 |statemen|ts with |
|00000ac0| 72 65 73 70 65 63 74 20 | 74 6f 20 63 6f 6e 74 61 |respect |to conta|
|00000ad0| 69 6e 69 6e 67 20 62 6c | 6f 63 6b 2e 1f 0a 28 64 |ining bl|ock...(d|
|00000ae0| 65 66 63 6f 6e 73 74 20 | 63 2d 69 6e 64 65 6e 74 |efconst |c-indent|
|00000af0| 2d 6c 65 76 65 6c 20 32 | 20 28 23 24 20 2e 20 2d |-level 2| (#$ . -|
|00000b00| 32 37 31 38 29 29 0a 23 | 40 37 36 20 2a 49 6d 61 |2718)).#|@76 *Ima|
|00000b10| 67 69 6e 65 64 20 69 6e | 64 65 6e 74 61 74 69 6f |gined in|dentatio|
|00000b20| 6e 20 6f 66 20 61 20 43 | 20 6f 70 65 6e 20 62 72 |n of a C| open br|
|00000b30| 61 63 65 20 74 68 61 74 | 20 61 63 74 75 61 6c 6c |ace that| actuall|
|00000b40| 79 20 66 6f 6c 6c 6f 77 | 73 20 61 20 73 74 61 74 |y follow|s a stat|
|00000b50| 65 6d 65 6e 74 2e 1f 0a | 28 64 65 66 63 6f 6e 73 |ement...|(defcons|
|00000b60| 74 20 63 2d 62 72 61 63 | 65 2d 69 6d 61 67 69 6e |t c-brac|e-imagin|
|00000b70| 61 72 79 2d 6f 66 66 73 | 65 74 20 30 20 28 23 24 |ary-offs|et 0 (#$|
|00000b80| 20 2e 20 2d 32 38 32 38 | 29 29 0a 23 40 37 34 20 | . -2828|)).#@74 |
|00000b90| 2a 45 78 74 72 61 20 69 | 6e 64 65 6e 74 61 74 69 |*Extra i|ndentati|
|00000ba0| 6f 6e 20 66 6f 72 20 62 | 72 61 63 65 73 2c 20 63 |on for b|races, c|
|00000bb0| 6f 6d 70 61 72 65 64 20 | 77 69 74 68 20 6f 74 68 |ompared |with oth|
|00000bc0| 65 72 20 74 65 78 74 20 | 69 6e 20 73 61 6d 65 20 |er text |in same |
|00000bd0| 63 6f 6e 74 65 78 74 2e | 1f 0a 28 64 65 66 63 6f |context.|..(defco|
|00000be0| 6e 73 74 20 63 2d 62 72 | 61 63 65 2d 6f 66 66 73 |nst c-br|ace-offs|
|00000bf0| 65 74 20 30 20 28 23 24 | 20 2e 20 2d 32 39 36 30 |et 0 (#$| . -2960|
|00000c00| 29 29 0a 23 40 36 31 20 | 2a 49 6e 64 65 6e 74 61 |)).#@61 |*Indenta|
|00000c10| 74 69 6f 6e 20 6c 65 76 | 65 6c 20 6f 66 20 64 65 |tion lev|el of de|
|00000c20| 63 6c 61 72 61 74 69 6f | 6e 73 20 6f 66 20 43 20 |claratio|ns of C |
|00000c30| 66 75 6e 63 74 69 6f 6e | 20 61 72 67 75 6d 65 6e |function| argumen|
|00000c40| 74 73 2e 1f 0a 28 64 65 | 66 63 6f 6e 73 74 20 63 |ts...(de|fconst c|
|00000c50| 2d 61 72 67 64 65 63 6c | 2d 69 6e 64 65 6e 74 20 |-argdecl|-indent |
|00000c60| 35 20 28 23 24 20 2e 20 | 2d 33 30 38 30 29 29 0a |5 (#$ . |-3080)).|
|00000c70| 23 40 37 37 20 2a 4f 66 | 66 73 65 74 20 6f 66 20 |#@77 *Of|fset of |
|00000c80| 43 20 6c 61 62 65 6c 20 | 6c 69 6e 65 73 20 61 6e |C label |lines an|
|00000c90| 64 20 63 61 73 65 20 73 | 74 61 74 65 6d 65 6e 74 |d case s|tatement|
|00000ca0| 73 20 72 65 6c 61 74 69 | 76 65 20 74 6f 20 75 73 |s relati|ve to us|
|00000cb0| 75 61 6c 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 2e |ual inde|ntation.|
|00000cc0| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 63 2d 6c 61 |..(defco|nst c-la|
|00000cd0| 62 65 6c 2d 6f 66 66 73 | 65 74 20 2d 32 20 28 23 |bel-offs|et -2 (#|
|00000ce0| 24 20 2e 20 2d 33 31 38 | 39 29 29 0a 23 40 35 34 |$ . -318|9)).#@54|
|00000cf0| 20 2a 45 78 74 72 61 20 | 69 6e 64 65 6e 74 20 66 | *Extra |indent f|
|00000d00| 6f 72 20 6c 69 6e 65 73 | 20 6e 6f 74 20 73 74 61 |or lines| not sta|
|00000d10| 72 74 69 6e 67 20 6e 65 | 77 20 73 74 61 74 65 6d |rting ne|w statem|
|00000d20| 65 6e 74 73 2e 1f 0a 28 | 64 65 66 63 6f 6e 73 74 |ents...(|defconst|
|00000d30| 20 63 2d 63 6f 6e 74 69 | 6e 75 65 64 2d 73 74 61 | c-conti|nued-sta|
|00000d40| 74 65 6d 65 6e 74 2d 6f | 66 66 73 65 74 20 32 20 |tement-o|ffset 2 |
|00000d50| 28 23 24 20 2e 20 2d 33 | 33 31 33 29 29 0a 23 40 |(#$ . -3|313)).#@|
|00000d60| 31 31 37 20 2a 45 78 74 | 72 61 20 69 6e 64 65 6e |117 *Ext|ra inden|
|00000d70| 74 20 66 6f 72 20 73 75 | 62 73 74 61 74 65 6d 65 |t for su|bstateme|
|00000d80| 6e 74 73 20 74 68 61 74 | 20 73 74 61 72 74 20 77 |nts that| start w|
|00000d90| 69 74 68 20 6f 70 65 6e | 2d 62 72 61 63 65 73 2e |ith open|-braces.|
|00000da0| 0a 54 68 69 73 20 69 73 | 20 69 6e 20 61 64 64 69 |.This is| in addi|
|00000db0| 74 69 6f 6e 20 74 6f 20 | 60 63 2d 63 6f 6e 74 69 |tion to |`c-conti|
|00000dc0| 6e 75 65 64 2d 73 74 61 | 74 65 6d 65 6e 74 2d 6f |nued-sta|tement-o|
|00000dd0| 66 66 73 65 74 27 2e 1f | 0a 28 64 65 66 63 6f 6e |ffset'..|.(defcon|
|00000de0| 73 74 20 63 2d 63 6f 6e | 74 69 6e 75 65 64 2d 62 |st c-con|tinued-b|
|00000df0| 72 61 63 65 2d 6f 66 66 | 73 65 74 20 30 20 28 23 |race-off|set 0 (#|
|00000e00| 24 20 2e 20 2d 33 34 32 | 38 29 29 0a 28 62 79 74 |$ . -342|8)).(byt|
|00000e10| 65 2d 63 6f 64 65 20 22 | c0 11 c1 5c 6e 42 12 c1 |e-code "|...\nB..|
|00000e20| 87 22 20 5b 28 28 22 47 | 4e 55 22 20 28 63 2d 69 |." [(("G|NU" (c-i|
|00000e30| 6e 64 65 6e 74 2d 6c 65 | 76 65 6c 20 2e 20 32 29 |ndent-le|vel . 2)|
|00000e40| 20 28 63 2d 61 72 67 64 | 65 63 6c 2d 69 6e 64 65 | (c-argd|ecl-inde|
|00000e50| 6e 74 20 2e 20 35 29 20 | 28 63 2d 62 72 61 63 65 |nt . 5) |(c-brace|
|00000e60| 2d 6f 66 66 73 65 74 20 | 2e 20 30 29 20 28 63 2d |-offset |. 0) (c-|
|00000e70| 63 6f 6e 74 69 6e 75 65 | 64 2d 62 72 61 63 65 2d |continue|d-brace-|
|00000e80| 6f 66 66 73 65 74 20 2e | 20 30 29 20 28 63 2d 6c |offset .| 0) (c-l|
|00000e90| 61 62 65 6c 2d 6f 66 66 | 73 65 74 20 2e 20 2d 32 |abel-off|set . -2|
|00000ea0| 29 20 28 63 2d 63 6f 6e | 74 69 6e 75 65 64 2d 73 |) (c-con|tinued-s|
|00000eb0| 74 61 74 65 6d 65 6e 74 | 2d 6f 66 66 73 65 74 20 |tatement|-offset |
|00000ec0| 2e 20 32 29 29 20 28 22 | 4b 26 52 22 20 28 63 2d |. 2)) ("|K&R" (c-|
|00000ed0| 69 6e 64 65 6e 74 2d 6c | 65 76 65 6c 20 2e 20 35 |indent-l|evel . 5|
|00000ee0| 29 20 28 63 2d 61 72 67 | 64 65 63 6c 2d 69 6e 64 |) (c-arg|decl-ind|
|00000ef0| 65 6e 74 20 2e 20 30 29 | 20 28 63 2d 62 72 61 63 |ent . 0)| (c-brac|
|00000f00| 65 2d 6f 66 66 73 65 74 | 20 2e 20 30 29 20 28 63 |e-offset| . 0) (c|
|00000f10| 2d 63 6f 6e 74 69 6e 75 | 65 64 2d 62 72 61 63 65 |-continu|ed-brace|
|00000f20| 2d 6f 66 66 73 65 74 20 | 2e 20 2d 35 29 20 28 63 |-offset |. -5) (c|
|00000f30| 2d 6c 61 62 65 6c 2d 6f | 66 66 73 65 74 20 2e 20 |-label-o|ffset . |
|00000f40| 2d 35 29 20 28 63 2d 63 | 6f 6e 74 69 6e 75 65 64 |-5) (c-c|ontinued|
|00000f50| 2d 73 74 61 74 65 6d 65 | 6e 74 2d 6f 66 66 73 65 |-stateme|nt-offse|
|00000f60| 74 20 2e 20 35 29 29 20 | 28 22 42 53 44 22 20 28 |t . 5)) |("BSD" (|
|00000f70| 63 2d 69 6e 64 65 6e 74 | 2d 6c 65 76 65 6c 20 2e |c-indent|-level .|
|00000f80| 20 34 29 20 28 63 2d 61 | 72 67 64 65 63 6c 2d 69 | 4) (c-a|rgdecl-i|
|00000f90| 6e 64 65 6e 74 20 2e 20 | 34 29 20 28 63 2d 62 72 |ndent . |4) (c-br|
|00000fa0| 61 63 65 2d 6f 66 66 73 | 65 74 20 2e 20 30 29 20 |ace-offs|et . 0) |
|00000fb0| 28 63 2d 63 6f 6e 74 69 | 6e 75 65 64 2d 62 72 61 |(c-conti|nued-bra|
|00000fc0| 63 65 2d 6f 66 66 73 65 | 74 20 2e 20 2d 34 29 20 |ce-offse|t . -4) |
|00000fd0| 28 63 2d 6c 61 62 65 6c | 2d 6f 66 66 73 65 74 20 |(c-label|-offset |
|00000fe0| 2e 20 2d 34 29 20 28 63 | 2d 63 6f 6e 74 69 6e 75 |. -4) (c|-continu|
|00000ff0| 65 64 2d 73 74 61 74 65 | 6d 65 6e 74 2d 6f 66 66 |ed-state|ment-off|
|00001000| 73 65 74 20 2e 20 34 29 | 29 20 28 22 43 2b 2b 22 |set . 4)|) ("C++"|
|00001010| 20 28 63 2d 69 6e 64 65 | 6e 74 2d 6c 65 76 65 6c | (c-inde|nt-level|
|00001020| 20 2e 20 34 29 20 28 63 | 2d 61 72 67 64 65 63 6c | . 4) (c|-argdecl|
|00001030| 2d 69 6e 64 65 6e 74 20 | 2e 20 30 29 20 28 63 2d |-indent |. 0) (c-|
|00001040| 62 72 61 63 65 2d 6f 66 | 66 73 65 74 20 2e 20 30 |brace-of|fset . 0|
|00001050| 29 20 28 63 2d 63 6f 6e | 74 69 6e 75 65 64 2d 62 |) (c-con|tinued-b|
|00001060| 72 61 63 65 2d 6f 66 66 | 73 65 74 20 2e 20 2d 34 |race-off|set . -4|
|00001070| 29 20 28 63 2d 6c 61 62 | 65 6c 2d 6f 66 66 73 65 |) (c-lab|el-offse|
|00001080| 74 20 2e 20 2d 34 29 20 | 28 63 2d 63 6f 6e 74 69 |t . -4) |(c-conti|
|00001090| 6e 75 65 64 2d 73 74 61 | 74 65 6d 65 6e 74 2d 6f |nued-sta|tement-o|
|000010a0| 66 66 73 65 74 20 2e 20 | 34 29 20 28 63 2d 61 75 |ffset . |4) (c-au|
|000010b0| 74 6f 2d 6e 65 77 6c 69 | 6e 65 20 2e 20 74 29 29 |to-newli|ne . t))|
|000010c0| 20 28 22 57 68 69 74 65 | 73 6d 69 74 68 22 20 28 | ("White|smith" (|
|000010d0| 63 2d 69 6e 64 65 6e 74 | 2d 6c 65 76 65 6c 20 2e |c-indent|-level .|
|000010e0| 20 34 29 20 28 63 2d 61 | 72 67 64 65 63 6c 2d 69 | 4) (c-a|rgdecl-i|
|000010f0| 6e 64 65 6e 74 20 2e 20 | 34 29 20 28 63 2d 62 72 |ndent . |4) (c-br|
|00001100| 61 63 65 2d 6f 66 66 73 | 65 74 20 2e 20 30 29 20 |ace-offs|et . 0) |
|00001110| 28 63 2d 63 6f 6e 74 69 | 6e 75 65 64 2d 62 72 61 |(c-conti|nued-bra|
|00001120| 63 65 2d 6f 66 66 73 65 | 74 20 2e 20 30 29 20 28 |ce-offse|t . 0) (|
|00001130| 63 2d 6c 61 62 65 6c 2d | 6f 66 66 73 65 74 20 2e |c-label-|offset .|
|00001140| 20 2d 34 29 20 28 63 2d | 63 6f 6e 74 69 6e 75 65 | -4) (c-|continue|
|00001150| 64 2d 73 74 61 74 65 6d | 65 6e 74 2d 6f 66 66 73 |d-statem|ent-offs|
|00001160| 65 74 20 2e 20 34 29 29 | 29 20 63 2d 73 74 79 6c |et . 4))|) c-styl|
|00001170| 65 2d 61 6c 69 73 74 20 | 63 75 72 72 65 6e 74 2d |e-alist |current-|
|00001180| 6c 6f 61 64 2d 6c 69 73 | 74 5d 20 32 29 0a 23 40 |load-lis|t] 2).#@|
|00001190| 32 32 34 20 2a 4e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |224 *Non|-nil mea|
|000011a0| 6e 73 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |ns autom|atically|
|000011b0| 20 6e 65 77 6c 69 6e 65 | 20 62 65 66 6f 72 65 20 | newline| before |
|000011c0| 61 6e 64 20 61 66 74 65 | 72 20 62 72 61 63 65 73 |and afte|r braces|
|000011d0| 2c 0a 61 6e 64 20 61 66 | 74 65 72 20 63 6f 6c 6f |,.and af|ter colo|
|000011e0| 6e 73 20 61 6e 64 20 73 | 65 6d 69 63 6f 6c 6f 6e |ns and s|emicolon|
|000011f0| 73 2c 20 69 6e 73 65 72 | 74 65 64 20 69 6e 20 43 |s, inser|ted in C|
|00001200| 20 63 6f 64 65 2e 0a 49 | 66 20 79 6f 75 20 64 6f | code..I|f you do|
|00001210| 20 6e 6f 74 20 77 61 6e | 74 20 61 20 6c 65 61 64 | not wan|t a lead|
|00001220| 69 6e 67 20 6e 65 77 6c | 69 6e 65 20 62 65 66 6f |ing newl|ine befo|
|00001230| 72 65 20 62 72 61 63 65 | 73 20 74 68 65 6e 20 75 |re brace|s then u|
|00001240| 73 65 3a 0a 20 20 28 64 | 65 66 69 6e 65 2d 6b 65 |se:.  (d|efine-ke|
|00001250| 79 20 63 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 7b 22 |y c-mode|-map "{"|
|00001260| 20 27 65 6c 65 63 74 72 | 69 63 2d 63 2d 73 65 6d | 'electr|ic-c-sem|
|00001270| 69 29 1f 0a 28 64 65 66 | 63 6f 6e 73 74 20 63 2d |i)..(def|const c-|
|00001280| 61 75 74 6f 2d 6e 65 77 | 6c 69 6e 65 20 6e 69 6c |auto-new|line nil|
|00001290| 20 28 23 24 20 2e 20 2d | 34 35 30 30 29 29 0a 23 | (#$ . -|4500)).#|
|000012a0| 40 31 34 32 20 2a 4e 6f | 6e 2d 6e 69 6c 20 6d 65 |@142 *No|n-nil me|
|000012b0| 61 6e 73 20 54 41 42 20 | 69 6e 20 43 20 6d 6f 64 |ans TAB |in C mod|
|000012c0| 65 20 73 68 6f 75 6c 64 | 20 61 6c 77 61 79 73 20 |e should| always |
|000012d0| 72 65 69 6e 64 65 6e 74 | 20 74 68 65 20 63 75 72 |reindent| the cur|
|000012e0| 72 65 6e 74 20 6c 69 6e | 65 2c 0a 72 65 67 61 72 |rent lin|e,.regar|
|000012f0| 64 6c 65 73 73 20 6f 66 | 20 77 68 65 72 65 20 69 |dless of| where i|
|00001300| 6e 20 74 68 65 20 6c 69 | 6e 65 20 70 6f 69 6e 74 |n the li|ne point|
|00001310| 20 69 73 20 77 68 65 6e | 20 74 68 65 20 54 41 42 | is when| the TAB|
|00001320| 20 63 6f 6d 6d 61 6e 64 | 20 69 73 20 75 73 65 64 | command| is used|
|00001330| 2e 1f 0a 28 64 65 66 63 | 6f 6e 73 74 20 63 2d 74 |...(defc|onst c-t|
|00001340| 61 62 2d 61 6c 77 61 79 | 73 2d 69 6e 64 65 6e 74 |ab-alway|s-indent|
|00001350| 20 74 20 28 23 24 20 2e | 20 2d 34 37 37 33 29 29 | t (#$ .| -4773))|
|00001360| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 11 c1 |.(byte-c|ode "...|
|00001370| 5c 6e 42 12 c1 87 22 20 | 5b 22 63 61 73 65 5b 20 |\nB..." |["case[ |
|00001380| 09 27 2f 28 5d 5c 5c 7c | 64 65 66 61 75 6c 74 5b |.'/(]\\||default[|
|00001390| 20 09 5d 2a 3a 22 20 63 | 2d 73 77 69 74 63 68 2d | .]*:" c|-switch-|
|000013a0| 6c 61 62 65 6c 2d 72 65 | 67 65 78 70 20 63 75 72 |label-re|gexp cur|
|000013b0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 5d 20 |rent-loa|d-list] |
|000013c0| 32 29 0a 23 40 37 31 20 | 49 6d 65 6e 75 20 67 65 |2).#@71 |Imenu ge|
|000013d0| 6e 65 72 69 63 20 65 78 | 70 72 65 73 73 69 6f 6e |neric ex|pression|
|000013e0| 20 66 6f 72 20 43 20 6d | 6f 64 65 2e 20 20 53 65 | for C m|ode.  Se|
|000013f0| 65 20 60 69 6d 65 6e 75 | 2d 67 65 6e 65 72 69 63 |e `imenu|-generic|
|00001400| 2d 65 78 70 72 65 73 73 | 69 6f 6e 27 2e 1f 0a 28 |-express|ion'...(|
|00001410| 64 65 66 76 61 72 20 63 | 2d 69 6d 65 6e 75 2d 67 |defvar c|-imenu-g|
|00001420| 65 6e 65 72 69 63 2d 65 | 78 70 72 65 73 73 69 6f |eneric-e|xpressio|
|00001430| 6e 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |n (byte-|code "..|
|00001440| c2 c3 89 c4 c5 c6 c7 c4 | c8 c9 ca cb cc cd b0 0f |........|........|
|00001450| ce 42 42 cf c1 c2 d0 d1 | d2 b0 05 d3 42 42 44 87 |.BB.....|....BBD.|
|00001460| 22 20 5b 6e 69 6c 20 22 | 5e 22 20 22 5c 5c 28 74 |" [nil "|^" "\\(t|
|00001470| 65 6d 70 6c 61 74 65 5b | 20 09 5d 2a 3c 5b 5e 3e |emplate[| .]*<[^>|
|00001480| 5d 2b 3e 5b 20 09 5d 2a | 5c 5c 29 3f 22 20 22 5c |]+>[ .]*|\\)?" "\|
|00001490| 5c 28 5b 61 2d 7a 41 2d | 5a 30 2d 39 5f 3a 5d 2b |\([a-zA-|Z0-9_:]+|
|000014a0| 5b 20 09 5d 2b 5c 5c 29 | 3f 22 20 22 5c 5c 28 22 |[ .]+\\)|?" "\\("|
|000014b0| 20 22 5b 61 2d 7a 41 2d | 5a 30 2d 39 5f 3a 5d 2b | "[a-zA-|Z0-9_:]+|
|000014c0| 22 20 22 5c 5c 28 5b 20 | 09 5d 2a 5b 2a 26 5d 2b |" "\\([ |.]*[*&]+|
|000014d0| 5b 20 09 5d 2a 5c 5c 7c | 5b 20 09 5d 2b 5c 5c 29 |[ .]*\\||[ .]+\\)|
|000014e0| 22 20 22 5c 5c 29 3f 22 | 20 22 5b 61 2d 7a 41 2d |" "\\)?"| "[a-zA-|
|000014f0| 5a 30 2d 39 5f 3a 7e 5d | 2b 22 20 22 5c 5c 7c 22 |Z0-9_:~]|+" "\\|"|
|00001500| 20 22 5c 5c 28 5b 61 2d | 7a 41 2d 5a 30 2d 39 5f | "\\([a-|zA-Z0-9_|
|00001510| 3a 7e 5d 2a 3a 3a 5c 5c | 29 3f 6f 70 65 72 61 74 |:~]*::\\|)?operat|
|00001520| 6f 72 22 20 22 5b 5e 61 | 2d 7a 41 2d 5a 31 2d 39 |or" "[^a|-zA-Z1-9|
|00001530| 5f 5d 5b 5e 28 5d 2a 22 | 20 22 20 5c 5c 29 22 20 |_][^(]*"| " \\)" |
|00001540| 22 5b 20 09 5d 2a 28 5b | 5e 29 5d 2a 29 5b 20 09 |"[ .]*([|^)]*)[ .|
|00001550| 5c 6e 5d 2a 5b 5e 09 20 | 20 20 20 20 20 3b 5d 22 |\n]*[^. |     ;]"|
|00001560| 20 28 36 29 20 22 43 6c | 61 73 73 22 20 22 63 6c | (6) "Cl|ass" "cl|
|00001570| 61 73 73 5b 20 09 5d 2b | 22 20 22 5c 5c 28 5b 61 |ass[ .]+|" "\\([a|
|00001580| 2d 7a 41 2d 5a 30 2d 39 | 5f 5d 2b 5c 5c 29 22 20 |-zA-Z0-9|_]+\\)" |
|00001590| 22 5b 20 09 5d 2a 5b 3a | 7b 5d 22 20 28 32 29 5d |"[ .]*[:|{]" (2)]|
|000015a0| 20 31 36 29 20 28 23 24 | 20 2e 20 35 30 36 34 29 | 16) (#$| . 5064)|
|000015b0| 29 0a 23 40 31 38 30 38 | 20 4d 61 6a 6f 72 20 6d |).#@1808| Major m|
|000015c0| 6f 64 65 20 66 6f 72 20 | 65 64 69 74 69 6e 67 20 |ode for |editing |
|000015d0| 43 20 63 6f 64 65 2e 0a | 45 78 70 72 65 73 73 69 |C code..|Expressi|
|000015e0| 6f 6e 20 61 6e 64 20 6c | 69 73 74 20 63 6f 6d 6d |on and l|ist comm|
|000015f0| 61 6e 64 73 20 75 6e 64 | 65 72 73 74 61 6e 64 20 |ands und|erstand |
|00001600| 61 6c 6c 20 43 20 62 72 | 61 63 6b 65 74 73 2e 0a |all C br|ackets..|
|00001610| 54 61 62 20 69 6e 64 65 | 6e 74 73 20 66 6f 72 20 |Tab inde|nts for |
|00001620| 43 20 63 6f 64 65 2e 0a | 43 6f 6d 6d 65 6e 74 73 |C code..|Comments|
|00001630| 20 61 72 65 20 64 65 6c | 69 6d 69 74 65 64 20 77 | are del|imited w|
|00001640| 69 74 68 20 2f 2a 20 2e | 2e 2e 20 2a 2f 2e 0a 50 |ith /* .|.. */..P|
|00001650| 61 72 61 67 72 61 70 68 | 73 20 61 72 65 20 73 65 |aragraph|s are se|
|00001660| 70 61 72 61 74 65 64 20 | 62 79 20 62 6c 61 6e 6b |parated |by blank|
|00001670| 20 6c 69 6e 65 73 20 6f | 6e 6c 79 2e 0a 44 65 6c | lines o|nly..Del|
|00001680| 65 74 65 20 63 6f 6e 76 | 65 72 74 73 20 74 61 62 |ete conv|erts tab|
|00001690| 73 20 74 6f 20 73 70 61 | 63 65 73 20 61 73 20 69 |s to spa|ces as i|
|000016a0| 74 20 6d 6f 76 65 73 20 | 62 61 63 6b 2e 0a 5c 7b |t moves |back..\{|
|000016b0| 63 2d 6d 6f 64 65 2d 6d | 61 70 7d 0a 56 61 72 69 |c-mode-m|ap}.Vari|
|000016c0| 61 62 6c 65 73 20 63 6f | 6e 74 72 6f 6c 6c 69 6e |ables co|ntrollin|
|000016d0| 67 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 73 74 |g indent|ation st|
|000016e0| 79 6c 65 3a 0a 20 63 2d | 74 61 62 2d 61 6c 77 61 |yle:. c-|tab-alwa|
|000016f0| 79 73 2d 69 6e 64 65 6e | 74 0a 20 20 20 20 4e 6f |ys-inden|t.    No|
|00001700| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 54 41 42 20 |n-nil me|ans TAB |
|00001710| 69 6e 20 43 20 6d 6f 64 | 65 20 73 68 6f 75 6c 64 |in C mod|e should|
|00001720| 20 61 6c 77 61 79 73 20 | 72 65 69 6e 64 65 6e 74 | always |reindent|
|00001730| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6c 69 6e | the cur|rent lin|
|00001740| 65 2c 0a 20 20 20 20 72 | 65 67 61 72 64 6c 65 73 |e,.    r|egardles|
|00001750| 73 20 6f 66 20 77 68 65 | 72 65 20 69 6e 20 74 68 |s of whe|re in th|
|00001760| 65 20 6c 69 6e 65 20 70 | 6f 69 6e 74 20 69 73 20 |e line p|oint is |
|00001770| 77 68 65 6e 20 74 68 65 | 20 54 41 42 20 63 6f 6d |when the| TAB com|
|00001780| 6d 61 6e 64 20 69 73 20 | 75 73 65 64 2e 0a 20 63 |mand is |used.. c|
|00001790| 2d 61 75 74 6f 2d 6e 65 | 77 6c 69 6e 65 0a 20 20 |-auto-ne|wline.  |
|000017a0| 20 20 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |  Non-ni|l means |
|000017b0| 61 75 74 6f 6d 61 74 69 | 63 61 6c 6c 79 20 6e 65 |automati|cally ne|
|000017c0| 77 6c 69 6e 65 20 62 65 | 66 6f 72 65 20 61 6e 64 |wline be|fore and|
|000017d0| 20 61 66 74 65 72 20 62 | 72 61 63 65 73 2c 0a 20 | after b|races,. |
|000017e0| 20 20 20 61 6e 64 20 61 | 66 74 65 72 20 63 6f 6c |   and a|fter col|
|000017f0| 6f 6e 73 20 61 6e 64 20 | 73 65 6d 69 63 6f 6c 6f |ons and |semicolo|
|00001800| 6e 73 2c 20 69 6e 73 65 | 72 74 65 64 20 69 6e 20 |ns, inse|rted in |
|00001810| 43 20 63 6f 64 65 2e 0a | 20 63 2d 69 6e 64 65 6e |C code..| c-inden|
|00001820| 74 2d 6c 65 76 65 6c 0a | 20 20 20 20 49 6e 64 65 |t-level.|    Inde|
|00001830| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 43 20 73 74 61 |ntation |of C sta|
|00001840| 74 65 6d 65 6e 74 73 20 | 77 69 74 68 69 6e 20 73 |tements |within s|
|00001850| 75 72 72 6f 75 6e 64 69 | 6e 67 20 62 6c 6f 63 6b |urroundi|ng block|
|00001860| 2e 0a 20 20 20 20 54 68 | 65 20 73 75 72 72 6f 75 |..    Th|e surrou|
|00001870| 6e 64 69 6e 67 20 62 6c | 6f 63 6b 27 73 20 69 6e |nding bl|ock's in|
|00001880| 64 65 6e 74 61 74 69 6f | 6e 20 69 73 20 74 68 65 |dentatio|n is the|
|00001890| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 0a 20 20 20 | indenta|tion.   |
|000018a0| 20 6f 66 20 74 68 65 20 | 6c 69 6e 65 20 6f 6e 20 | of the |line on |
|000018b0| 77 68 69 63 68 20 74 68 | 65 20 6f 70 65 6e 2d 62 |which th|e open-b|
|000018c0| 72 61 63 65 20 61 70 70 | 65 61 72 73 2e 0a 20 63 |race app|ears.. c|
|000018d0| 2d 63 6f 6e 74 69 6e 75 | 65 64 2d 73 74 61 74 65 |-continu|ed-state|
|000018e0| 6d 65 6e 74 2d 6f 66 66 | 73 65 74 0a 20 20 20 20 |ment-off|set.    |
|000018f0| 45 78 74 72 61 20 69 6e | 64 65 6e 74 61 74 69 6f |Extra in|dentatio|
|00001900| 6e 20 67 69 76 65 6e 20 | 74 6f 20 61 20 73 75 62 |n given |to a sub|
|00001910| 73 74 61 74 65 6d 65 6e | 74 2c 20 73 75 63 68 20 |statemen|t, such |
|00001920| 61 73 20 74 68 65 0a 20 | 20 20 20 74 68 65 6e 2d |as the. |   then-|
|00001930| 63 6c 61 75 73 65 20 6f | 66 20 61 6e 20 69 66 20 |clause o|f an if |
|00001940| 6f 72 20 62 6f 64 79 20 | 6f 66 20 61 20 77 68 69 |or body |of a whi|
|00001950| 6c 65 2e 0a 20 63 2d 63 | 6f 6e 74 69 6e 75 65 64 |le.. c-c|ontinued|
|00001960| 2d 62 72 61 63 65 2d 6f | 66 66 73 65 74 0a 20 20 |-brace-o|ffset.  |
|00001970| 20 20 45 78 74 72 61 20 | 69 6e 64 65 6e 74 61 74 |  Extra |indentat|
|00001980| 69 6f 6e 20 67 69 76 65 | 6e 20 74 6f 20 61 20 62 |ion give|n to a b|
|00001990| 72 61 63 65 20 74 68 61 | 74 20 73 74 61 72 74 73 |race tha|t starts|
|000019a0| 20 61 20 73 75 62 73 74 | 61 74 65 6d 65 6e 74 2e | a subst|atement.|
|000019b0| 0a 20 20 20 20 54 68 69 | 73 20 69 73 20 69 6e 20 |.    Thi|s is in |
|000019c0| 61 64 64 69 74 69 6f 6e | 20 74 6f 20 63 2d 63 6f |addition| to c-co|
|000019d0| 6e 74 69 6e 75 65 64 2d | 73 74 61 74 65 6d 65 6e |ntinued-|statemen|
|000019e0| 74 2d 6f 66 66 73 65 74 | 2e 0a 20 63 2d 62 72 61 |t-offset|.. c-bra|
|000019f0| 63 65 2d 6f 66 66 73 65 | 74 0a 20 20 20 20 45 78 |ce-offse|t.    Ex|
|00001a00| 74 72 61 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |tra inde|ntation |
|00001a10| 66 6f 72 20 6c 69 6e 65 | 20 69 66 20 69 74 20 73 |for line| if it s|
|00001a20| 74 61 72 74 73 20 77 69 | 74 68 20 61 6e 20 6f 70 |tarts wi|th an op|
|00001a30| 65 6e 20 62 72 61 63 65 | 2e 0a 20 63 2d 62 72 61 |en brace|.. c-bra|
|00001a40| 63 65 2d 69 6d 61 67 69 | 6e 61 72 79 2d 6f 66 66 |ce-imagi|nary-off|
|00001a50| 73 65 74 0a 20 20 20 20 | 41 6e 20 6f 70 65 6e 20 |set.    |An open |
|00001a60| 62 72 61 63 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |brace fo|llowing |
|00001a70| 6f 74 68 65 72 20 74 65 | 78 74 20 69 73 20 74 72 |other te|xt is tr|
|00001a80| 65 61 74 65 64 20 61 73 | 20 69 66 20 69 74 20 77 |eated as| if it w|
|00001a90| 65 72 65 0a 20 20 20 20 | 74 68 69 73 20 66 61 72 |ere.    |this far|
|00001aa0| 20 74 6f 20 74 68 65 20 | 72 69 67 68 74 20 6f 66 | to the |right of|
|00001ab0| 20 74 68 65 20 73 74 61 | 72 74 20 6f 66 20 69 74 | the sta|rt of it|
|00001ac0| 73 20 6c 69 6e 65 2e 0a | 20 63 2d 61 72 67 64 65 |s line..| c-argde|
|00001ad0| 63 6c 2d 69 6e 64 65 6e | 74 0a 20 20 20 20 49 6e |cl-inden|t.    In|
|00001ae0| 64 65 6e 74 61 74 69 6f | 6e 20 6c 65 76 65 6c 20 |dentatio|n level |
|00001af0| 6f 66 20 64 65 63 6c 61 | 72 61 74 69 6f 6e 73 20 |of decla|rations |
|00001b00| 6f 66 20 43 20 66 75 6e | 63 74 69 6f 6e 20 61 72 |of C fun|ction ar|
|00001b10| 67 75 6d 65 6e 74 73 2e | 0a 20 63 2d 6c 61 62 65 |guments.|. c-labe|
|00001b20| 6c 2d 6f 66 66 73 65 74 | 0a 20 20 20 20 45 78 74 |l-offset|.    Ext|
|00001b30| 72 61 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 66 |ra inden|tation f|
|00001b40| 6f 72 20 6c 69 6e 65 20 | 74 68 61 74 20 69 73 20 |or line |that is |
|00001b50| 61 20 6c 61 62 65 6c 2c | 20 6f 72 20 63 61 73 65 |a label,| or case|
|00001b60| 20 6f 72 20 64 65 66 61 | 75 6c 74 2e 0a 0a 53 65 | or defa|ult...Se|
|00001b70| 74 74 69 6e 67 73 20 66 | 6f 72 20 4b 26 52 20 61 |ttings f|or K&R a|
|00001b80| 6e 64 20 42 53 44 20 69 | 6e 64 65 6e 74 61 74 69 |nd BSD i|ndentati|
|00001b90| 6f 6e 20 73 74 79 6c 65 | 73 20 61 72 65 0a 20 20 |on style|s are.  |
|00001ba0| 63 2d 69 6e 64 65 6e 74 | 2d 6c 65 76 65 6c 20 20 |c-indent|-level  |
|00001bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 35 20 |        |      5 |
|00001bc0| 20 20 20 38 0a 20 20 63 | 2d 63 6f 6e 74 69 6e 75 |   8.  c|-continu|
|00001bd0| 65 64 2d 73 74 61 74 65 | 6d 65 6e 74 2d 6f 66 66 |ed-state|ment-off|
|00001be0| 73 65 74 20 20 35 20 20 | 20 20 38 0a 20 20 63 2d |set  5  |  8.  c-|
|00001bf0| 62 72 61 63 65 2d 6f 66 | 66 73 65 74 20 20 20 20 |brace-of|fset    |
|00001c00| 20 20 20 20 20 20 20 20 | 20 20 20 2d 35 20 20 20 |        |   -5   |
|00001c10| 2d 38 0a 20 20 63 2d 61 | 72 67 64 65 63 6c 2d 69 |-8.  c-a|rgdecl-i|
|00001c20| 6e 64 65 6e 74 20 20 20 | 20 20 20 20 20 20 20 20 |ndent   |        |
|00001c30| 20 20 20 30 20 20 20 20 | 38 0a 20 20 63 2d 6c 61 |   0    |8.  c-la|
|00001c40| 62 65 6c 2d 6f 66 66 73 | 65 74 20 20 20 20 20 20 |bel-offs|et      |
|00001c50| 20 20 20 20 20 20 20 20 | 20 2d 35 20 20 20 2d 38 |        | -5   -8|
|00001c60| 0a 0a 54 75 72 6e 69 6e | 67 20 6f 6e 20 43 20 6d |..Turnin|g on C m|
|00001c70| 6f 64 65 20 63 61 6c 6c | 73 20 74 68 65 20 76 61 |ode call|s the va|
|00001c80| 6c 75 65 20 6f 66 20 74 | 68 65 20 76 61 72 69 61 |lue of t|he varia|
|00001c90| 62 6c 65 20 63 2d 6d 6f | 64 65 2d 68 6f 6f 6b 20 |ble c-mo|de-hook |
|00001ca0| 77 69 74 68 20 6e 6f 20 | 61 72 67 73 2c 0a 69 66 |with no |args,.if|
|00001cb0| 20 74 68 61 74 20 76 61 | 6c 75 65 20 69 73 20 6e | that va|lue is n|
|00001cc0| 6f 6e 2d 6e 69 6c 2e 1f | 0a 28 64 65 66 61 6c 69 |on-nil..|.(defali|
|00001cd0| 61 73 20 27 63 2d 6d 6f | 64 65 20 23 5b 6e 69 6c |as 'c-mo|de #[nil|
|00001ce0| 20 22 c0 20 88 c1 5c 6e | 21 88 c3 14 c5 16 06 0e | ". ..\n|!.......|
|00001cf0| 07 16 08 c9 0e 5c 6e 21 | 88 cb cc 21 88 cd 0e 0e |.....\n!|...!....|
|00001d00| 50 16 5c 66 cb cf 21 88 | 0e 5c 66 16 0f cb d0 21 |P.\f..!.|.\f....!|
|00001d10| 88 d1 16 10 cb d2 21 88 | d3 16 12 cb d4 21 88 d5 |......!.|.....!..|
|00001d20| 16 14 cb d6 21 88 d7 16 | 16 cb d8 21 88 d1 16 18 |....!...|...!....|
|00001d30| cb d9 21 88 da 16 19 cb | db 21 88 dc 16 1b cb dd |..!.....|.!......|
|00001d40| 21 88 de 16 1d cb df 21 | 88 e0 16 1f cb e1 21 88 |!......!|......!.|
|00001d50| e2 16 21 cb e3 21 88 e4 | 16 23 cb e5 21 88 e6 16 |..!..!..|.#..!...|
|00001d60| 25 cb e7 21 88 d1 16 27 | cb e8 21 88 d1 16 28 cb |%..!...'|..!...(.|
|00001d70| e9 21 88 0e 2a 16 29 eb | ec 21 87 22 20 5b 6b 69 |.!..*.).|.!." [ki|
|00001d80| 6c 6c 2d 61 6c 6c 2d 6c | 6f 63 61 6c 2d 76 61 72 |ll-all-l|ocal-var|
|00001d90| 69 61 62 6c 65 73 20 75 | 73 65 2d 6c 6f 63 61 6c |iables u|se-local|
|00001da0| 2d 6d 61 70 20 63 2d 6d | 6f 64 65 2d 6d 61 70 20 |-map c-m|ode-map |
|00001db0| 63 2d 6d 6f 64 65 20 6d | 61 6a 6f 72 2d 6d 6f 64 |c-mode m|ajor-mod|
|00001dc0| 65 20 22 43 22 20 6d 6f | 64 65 2d 6e 61 6d 65 20 |e "C" mo|de-name |
|00001dd0| 63 2d 6d 6f 64 65 2d 61 | 62 62 72 65 76 2d 74 61 |c-mode-a|bbrev-ta|
|00001de0| 62 6c 65 20 6c 6f 63 61 | 6c 2d 61 62 62 72 65 76 |ble loca|l-abbrev|
|00001df0| 2d 74 61 62 6c 65 20 73 | 65 74 2d 73 79 6e 74 61 |-table s|et-synta|
|00001e00| 78 2d 74 61 62 6c 65 20 | 63 2d 6d 6f 64 65 2d 73 |x-table |c-mode-s|
|00001e10| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 6d 61 6b 65 |yntax-ta|ble make|
|00001e20| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00001e30| 70 61 72 61 67 72 61 70 | 68 2d 73 74 61 72 74 20 |paragrap|h-start |
|00001e40| 22 24 5c 5c 7c 22 20 70 | 61 67 65 2d 64 65 6c 69 |"$\\|" p|age-deli|
|00001e50| 6d 69 74 65 72 20 70 61 | 72 61 67 72 61 70 68 2d |miter pa|ragraph-|
|00001e60| 73 65 70 61 72 61 74 65 | 20 70 61 72 61 67 72 61 |separate| paragra|
|00001e70| 70 68 2d 69 67 6e 6f 72 | 65 2d 66 69 6c 6c 2d 70 |ph-ignor|e-fill-p|
|00001e80| 72 65 66 69 78 20 74 20 | 66 69 6c 6c 2d 70 61 72 |refix t |fill-par|
|00001e90| 61 67 72 61 70 68 2d 66 | 75 6e 63 74 69 6f 6e 20 |agraph-f|unction |
|00001ea0| 63 2d 66 69 6c 6c 2d 70 | 61 72 61 67 72 61 70 68 |c-fill-p|aragraph|
|00001eb0| 20 69 6e 64 65 6e 74 2d | 6c 69 6e 65 2d 66 75 6e | indent-|line-fun|
|00001ec0| 63 74 69 6f 6e 20 63 2d | 69 6e 64 65 6e 74 2d 6c |ction c-|indent-l|
|00001ed0| 69 6e 65 20 69 6e 64 65 | 6e 74 2d 72 65 67 69 6f |ine inde|nt-regio|
|00001ee0| 6e 2d 66 75 6e 63 74 69 | 6f 6e 20 63 2d 69 6e 64 |n-functi|on c-ind|
|00001ef0| 65 6e 74 2d 72 65 67 69 | 6f 6e 20 72 65 71 75 69 |ent-regi|on requi|
|00001f00| 72 65 2d 66 69 6e 61 6c | 2d 6e 65 77 6c 69 6e 65 |re-final|-newline|
|00001f10| 20 6f 75 74 6c 69 6e 65 | 2d 72 65 67 65 78 70 20 | outline|-regexp |
|00001f20| 22 5b 5e 23 5c 6e 0d 5d | 22 20 6f 75 74 6c 69 6e |"[^#\n.]|" outlin|
|00001f30| 65 2d 6c 65 76 65 6c 20 | 63 2d 6f 75 74 6c 69 6e |e-level |c-outlin|
|00001f40| 65 2d 6c 65 76 65 6c 20 | 63 6f 6d 6d 65 6e 74 2d |e-level |comment-|
|00001f50| 73 74 61 72 74 20 22 2f | 2a 20 22 20 63 6f 6d 6d |start "/|* " comm|
|00001f60| 65 6e 74 2d 65 6e 64 20 | 22 20 2a 2f 22 20 63 6f |ent-end |" */" co|
|00001f70| 6d 6d 65 6e 74 2d 63 6f | 6c 75 6d 6e 20 33 32 20 |mment-co|lumn 32 |
|00001f80| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 2d 73 6b |comment-|start-sk|
|00001f90| 69 70 20 22 2f 5c 5c 2a | 2b 20 2a 22 20 63 6f 6d |ip "/\\*|+ *" com|
|00001fa0| 6d 65 6e 74 2d 69 6e 64 | 65 6e 74 2d 66 75 6e 63 |ment-ind|ent-func|
|00001fb0| 74 69 6f 6e 20 63 2d 63 | 6f 6d 6d 65 6e 74 2d 69 |tion c-c|omment-i|
|00001fc0| 6e 64 65 6e 74 20 63 6f | 6d 6d 65 6e 74 2d 6d 75 |ndent co|mment-mu|
|00001fd0| 6c 74 69 2d 6c 69 6e 65 | 20 70 61 72 73 65 2d 73 |lti-line| parse-s|
|00001fe0| 65 78 70 2d 69 67 6e 6f | 72 65 2d 63 6f 6d 6d 65 |exp-igno|re-comme|
|00001ff0| 6e 74 73 20 69 6d 65 6e | 75 2d 67 65 6e 65 72 69 |nts imen|u-generi|
|00002000| 63 2d 65 78 70 72 65 73 | 73 69 6f 6e 20 63 2d 69 |c-expres|sion c-i|
|00002010| 6d 65 6e 75 2d 67 65 6e | 65 72 69 63 2d 65 78 70 |menu-gen|eric-exp|
|00002020| 72 65 73 73 69 6f 6e 20 | 72 75 6e 2d 68 6f 6f 6b |ression |run-hook|
|00002030| 73 20 63 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 5d 20 32 |s c-mode|-hook] 2|
|00002040| 20 28 23 24 20 2e 20 35 | 35 36 31 29 20 6e 69 6c | (#$ . 5|561) nil|
|00002050| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 2d |]).(defa|lias 'c-|
|00002060| 6f 75 74 6c 69 6e 65 2d | 6c 65 76 65 6c 20 23 5b |outline-|level #[|
|00002070| 6e 69 6c 20 22 8a c0 c1 | 77 88 69 29 87 22 20 5b |nil "...|w.i)." [|
|00002080| 22 09 20 22 20 6e 69 6c | 5d 20 32 5d 29 0a 28 64 |". " nil|] 2]).(d|
|00002090| 65 66 61 6c 69 61 73 20 | 27 63 2d 63 6f 6d 6d 65 |efalias |'c-comme|
|000020a0| 6e 74 2d 69 6e 64 65 6e | 74 20 23 5b 6e 69 6c 20 |nt-inden|t #[nil |
|000020b0| 22 c0 c1 21 83 08 00 c2 | 87 60 1b 8a c2 79 88 c0 |"..!....|.`...y..|
|000020c0| c4 21 83 1d 00 c5 c6 21 | 88 69 54 82 48 00 c0 c7 |.!.....!|.iT.H...|
|000020d0| 21 84 29 00 c0 c8 21 83 | 2d 00 c9 82 48 00 0b 62 |!.)...!.|-...H..b|
|000020e0| 88 ca cb 78 88 0e 5c 66 | c2 55 83 43 00 6e 83 43 |...x..\f|.U.C.n.C|
|000020f0| 00 c2 82 48 00 69 54 0e | 5c 66 5d 2a 87 22 20 5b |...H.iT.|\f]*." [|
|00002100| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5e 2f 5c 5c |looking-|at "^/\\|
|00002110| 2a 22 20 30 20 6f 70 6f | 69 6e 74 20 22 5b 20 09 |*" 0 opo|int "[ .|
|00002120| 5d 2a 7d 5b 20 09 5d 2a | 5c 5c 28 24 5c 5c 7c 2f |]*}[ .]*|\\($\\|/|
|00002130| 5c 5c 2a 5c 5c 29 22 20 | 73 65 61 72 63 68 2d 66 |\\*\\)" |search-f|
|00002140| 6f 72 77 61 72 64 20 22 | 7d 22 20 22 5e 23 5b 20 |orward "|}" "^#[ |
|00002150| 09 5d 2a 65 6e 64 69 66 | 5b 20 09 5d 2a 22 20 22 |.]*endif|[ .]*" "|
|00002160| 5e 23 5b 20 09 5d 2a 65 | 6c 73 65 5b 20 09 5d 2a |^#[ .]*e|lse[ .]*|
|00002170| 22 20 37 20 22 20 09 22 | 20 6e 69 6c 20 63 6f 6d |" 7 " ."| nil com|
|00002180| 6d 65 6e 74 2d 63 6f 6c | 75 6d 6e 5d 20 32 5d 29 |ment-col|umn] 2])|
|00002190| 0a 23 40 32 33 31 20 4c | 69 6b 65 20 5c 5b 66 69 |.#@231 L|ike \[fi|
|000021a0| 6c 6c 2d 70 61 72 61 67 | 72 61 70 68 5d 20 62 75 |ll-parag|raph] bu|
|000021b0| 74 20 68 61 6e 64 6c 65 | 20 43 20 63 6f 6d 6d 65 |t handle| C comme|
|000021c0| 6e 74 73 2e 0a 49 66 20 | 61 6e 79 20 6f 66 20 74 |nts..If |any of t|
|000021d0| 68 65 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 20 |he curre|nt line |
|000021e0| 69 73 20 61 20 63 6f 6d | 6d 65 6e 74 20 6f 72 20 |is a com|ment or |
|000021f0| 77 69 74 68 69 6e 20 61 | 20 63 6f 6d 6d 65 6e 74 |within a| comment|
|00002200| 2c 0a 66 69 6c 6c 20 74 | 68 65 20 63 6f 6d 6d 65 |,.fill t|he comme|
|00002210| 6e 74 20 6f 72 20 74 68 | 65 20 70 61 72 61 67 72 |nt or th|e paragr|
|00002220| 61 70 68 20 6f 66 20 69 | 74 20 74 68 61 74 20 70 |aph of i|t that p|
|00002230| 6f 69 6e 74 20 69 73 20 | 69 6e 2c 0a 70 72 65 73 |oint is |in,.pres|
|00002240| 65 72 76 69 6e 67 20 74 | 68 65 20 63 6f 6d 6d 65 |erving t|he comme|
|00002250| 6e 74 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 6f |nt inden|tation o|
|00002260| 72 20 6c 69 6e 65 2d 73 | 74 61 72 74 69 6e 67 20 |r line-s|tarting |
|00002270| 64 65 63 6f 72 61 74 69 | 6f 6e 73 2e 1f 0a 28 64 |decorati|ons...(d|
|00002280| 65 66 61 6c 69 61 73 20 | 27 63 2d 66 69 6c 6c 2d |efalias |'c-fill-|
|00002290| 70 61 72 61 67 72 61 70 | 68 20 23 5b 28 26 6f 70 |paragrap|h #[(&op|
|000022a0| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 19 8a |tional a|rg) "...|
|000022b0| c2 79 88 c3 c0 77 88 c4 | 0d 21 85 13 00 60 89 11 |.y...w..|.!...`..|
|000022c0| 29 1e 06 0e 07 c8 3d 83 | 9c 00 8a c2 79 88 c4 c9 |).....=.|....y...|
|000022d0| 21 29 83 9c 00 c0 0e 5c | 6e cb 50 0e 5c 66 cb 50 |!).....\|n.P.\f.P|
|000022e0| 1e 5c 66 1e 5c 6e 1e 0d | 8a c2 79 88 6f 84 4b 00 |.\f.\n..|..y.o.K.|
|000022f0| c4 ce 21 83 4b 00 cf 79 | 88 82 3b 00 c4 c9 21 84 |..!.K..y|..;...!.|
|00002300| 54 00 d0 79 88 d1 d2 21 | 88 69 1e 13 d4 c0 78 88 |T..y...!|.i....x.|
|00002310| d5 69 d6 5a d7 5c 22 d8 | d5 0e 13 69 5a d7 5c 22 |.i.Z.\".|...iZ.\"|
|00002320| 51 16 0d 29 8c 60 8a d0 | 79 88 c4 ce 21 83 83 00 |Q..).`..|y...!...|
|00002330| d0 79 88 82 77 00 60 29 | 7d 88 0e 0d 63 88 d9 0e |.y..w.`)|}...c...|
|00002340| 1a 21 88 65 65 0e 0d 47 | 5c 5c 7c 88 2d 82 b7 01 |.!.ee..G|\\|.-...|
|00002350| 0e 06 84 bf 00 db 20 dc | 3d 84 bf 00 8a c2 79 88 |...... .|=.....y.|
|00002360| d1 0d 8a c0 7f 88 60 29 | dc 23 60 11 29 89 16 06 |......`)|.#`.)...|
|00002370| 83 b2 01 8a c2 79 88 c4 | dd 21 83 d4 00 d1 0d 21 |.....y..|.!.....!|
|00002380| 88 d5 69 d7 5c 22 82 18 | 01 0e 06 83 dc 00 d0 79 |..i.\"..|.......y|
|00002390| 88 c0 7f 88 69 1e 1e c2 | 79 88 60 df e0 dc 21 dc |....i...|y.`...!.|
|000023a0| 5c 22 88 60 1e 21 c2 79 | 88 e2 0e 21 77 88 67 e3 |\".`.!.y|...!w.g.|
|000023b0| 3d 83 08 01 68 e4 3d 83 | 08 01 e5 d0 21 88 60 29 |=...h.=.|....!.`)|
|000023c0| 7b df 0e 1e 21 88 60 c0 | 7f 88 60 7c 88 29 29 0e |{...!.`.|..`|.)).|
|000023d0| 5c 6e cb 50 0e 5c 66 cb | 50 c2 1e 26 1e 5c 66 1e |\n.P.\f.|P..&.\f.|
|000023e0| 5c 6e 1e 0d 8c 8a 09 83 | 36 01 09 62 88 82 3a 01 |\n......|6..b..:.|
|000023f0| e7 e8 21 88 69 1e 29 60 | 0e 29 16 26 ea d7 0e 29 |..!.i.)`|.).&...)|
|00002400| 5c 22 88 2a 8a 09 83 53 | 01 09 d6 5c 5c 62 88 eb |\".*...S|...\\b..|
|00002410| ec c0 ed 23 88 d0 79 88 | 60 29 7d 88 8a 64 62 88 |...#..y.|`)}..db.|
|00002420| cf 79 88 c4 ee 21 83 71 | 01 65 60 7d 88 29 d9 0e |.y...!.q|.e`}.)..|
|00002430| 1a 21 88 8a 65 62 88 0e | 26 c2 56 83 89 01 60 60 |.!..eb..|&.V...``|
|00002440| 0e 26 5c 5c 7c 88 64 62 | 88 cf 79 88 eb ec c0 ed |.&\\|.db|..y.....|
|00002450| 23 88 c2 79 88 c4 ee 21 | 83 ad 01 0e 2f f0 5c 5c |#..y...!|..../.\\|
|00002460| 1e 2f cf 79 88 f1 60 64 | 5c 22 88 29 2e 06 82 b7 |./.y..`d|\".)....|
|00002470| 01 d9 0e 1a 21 88 2a dc | 87 22 20 5b 6e 69 6c 20 |....!.*.|." [nil |
|00002480| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 2d 70 6c |comment-|start-pl|
|00002490| 61 63 65 20 30 20 22 20 | 09 5c 6e 22 20 6c 6f 6f |ace 0 " |.\n" loo|
|000024a0| 6b 69 6e 67 2d 61 74 20 | 63 6f 6d 6d 65 6e 74 2d |king-at |comment-|
|000024b0| 73 74 61 72 74 2d 73 6b | 69 70 20 66 69 72 73 74 |start-sk|ip first|
|000024c0| 2d 6c 69 6e 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-line ma|jor-mode|
|000024d0| 20 63 2b 2b 2d 6d 6f 64 | 65 20 22 2e 2a 2f 2f 22 | c++-mod|e ".*//"|
|000024e0| 20 70 61 72 61 67 72 61 | 70 68 2d 73 74 61 72 74 | paragra|ph-start|
|000024f0| 20 22 5c 5c 7c 5b 20 09 | 5d 2a 2f 5c 5c 2a 5b 20 | "\\|[ .|]*/\\*[ |
|00002500| 09 5d 2a 24 5c 5c 7c 5b | 20 09 5d 2a 5c 5c 2a 2f |.]*$\\|[| .]*\\*/|
|00002510| 5b 20 09 5d 2a 24 5c 5c | 7c 5b 20 09 2f 2a 5d 2a |[ .]*$\\||[ ./*]*|
|00002520| 24 22 20 70 61 72 61 67 | 72 61 70 68 2d 73 65 70 |$" parag|raph-sep|
|00002530| 61 72 61 74 65 20 66 69 | 6c 6c 2d 70 72 65 66 69 |arate fi|ll-prefi|
|00002540| 78 20 22 5b 20 09 5d 2a | 2f 2f 22 20 2d 31 20 31 |x "[ .]*|//" -1 1|
|00002550| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00002560| 72 64 20 22 5b 20 09 5d | 2a 2f 2f 5b 20 09 5d 2a |rd "[ .]|*//[ .]*|
|00002570| 22 20 65 6e 64 63 6f 6c | 20 22 20 09 22 20 6d 61 |" endcol| " ." ma|
|00002580| 6b 65 2d 73 74 72 69 6e | 67 20 32 20 33 32 20 22 |ke-strin|g 2 32 "|
|00002590| 2f 2f 22 20 66 69 6c 6c | 2d 70 61 72 61 67 72 61 |//" fill|-paragra|
|000025a0| 70 68 20 61 72 67 20 63 | 61 6c 63 75 6c 61 74 65 |ph arg c|alculate|
|000025b0| 2d 63 2d 69 6e 64 65 6e | 74 20 74 20 22 5b 20 09 |-c-inden|t t "[ .|
|000025c0| 5d 2a 2f 5c 5c 2a 2e 2a | 5c 5c 2a 2f 22 20 6c 69 |]*/\\*.*|\\*/" li|
|000025d0| 6e 65 2d 77 69 64 74 68 | 20 6d 6f 76 65 2d 74 6f |ne-width| move-to|
|000025e0| 2d 63 6f 6c 75 6d 6e 20 | 63 61 6c 63 75 6c 61 74 |-column |calculat|
|000025f0| 65 2d 63 2d 69 6e 64 65 | 6e 74 2d 77 69 74 68 69 |e-c-inde|nt-withi|
|00002600| 6e 2d 63 6f 6d 6d 65 6e | 74 20 6d 61 78 2d 70 72 |n-commen|t max-pr|
|00002610| 65 66 69 78 2d 65 6e 64 | 20 22 20 09 2a 22 20 34 |efix-end| " .*" 4|
|00002620| 37 20 34 32 20 62 61 63 | 6b 77 61 72 64 2d 63 68 |7 42 bac|kward-ch|
|00002630| 61 72 20 63 68 61 72 73 | 2d 74 6f 2d 64 65 6c 65 |ar chars|-to-dele|
|00002640| 74 65 20 73 65 61 72 63 | 68 2d 62 61 63 6b 77 61 |te searc|h-backwa|
|00002650| 72 64 20 22 2f 2a 22 20 | 63 6f 6c 75 6d 6e 20 69 |rd "/*" |column i|
|00002660| 6e 73 65 72 74 2d 63 68 | 61 72 20 73 65 61 72 63 |nsert-ch|ar searc|
|00002670| 68 2d 66 6f 72 77 61 72 | 64 20 22 2a 2f 22 20 6d |h-forwar|d "*/" m|
|00002680| 6f 76 65 20 22 5b 20 09 | 5d 2a 5c 5c 2a 2f 22 20 |ove "[ .|]*\\*/" |
|00002690| 66 69 6c 6c 2d 63 6f 6c | 75 6d 6e 20 39 39 39 39 |fill-col|umn 9999|
|000026a0| 20 66 69 6c 6c 2d 72 65 | 67 69 6f 6e 2d 61 73 2d | fill-re|gion-as-|
|000026b0| 70 61 72 61 67 72 61 70 | 68 5d 20 35 20 28 23 24 |paragrap|h] 5 (#$|
|000026c0| 20 2e 20 38 35 39 39 29 | 20 22 50 22 5d 29 0a 23 | . 8599)| "P"]).#|
|000026d0| 40 35 30 20 49 6e 73 65 | 72 74 20 63 68 61 72 61 |@50 Inse|rt chara|
|000026e0| 63 74 65 72 20 61 6e 64 | 20 63 6f 72 72 65 63 74 |cter and| correct|
|000026f0| 20 6c 69 6e 65 27 73 20 | 69 6e 64 65 6e 74 61 74 | line's |indentat|
|00002700| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00002710| 27 65 6c 65 63 74 72 69 | 63 2d 63 2d 62 72 61 63 |'electri|c-c-brac|
|00002720| 65 20 23 5b 28 61 72 67 | 29 20 22 c0 19 5c 6e 84 |e #[(arg|) "..\n.|
|00002730| 41 00 6c 83 41 00 8a c3 | c0 78 88 6e 29 84 1e 00 |A.l.A...|.x.n)...|
|00002740| 5c 66 83 41 00 c5 20 88 | c6 20 88 0e 07 63 88 c5 |\f.A.. .|. ...c..|
|00002750| 20 88 5c 66 83 33 00 c6 | 20 88 60 c8 5a 11 c5 20 | .\f.3..| .`.Z.. |
|00002760| 88 8a 09 83 3c 00 09 54 | 62 88 c9 ca 21 88 29 09 |....<..T|b...!.).|
|00002770| 83 52 00 8a 09 62 88 cb | cc 5c 6e 21 21 29 82 57 |.R...b..|.\n!!).W|
|00002780| 00 cb cc 5c 6e 21 21 29 | 87 22 20 5b 6e 69 6c 20 |...\n!!)|." [nil |
|00002790| 69 6e 73 65 72 74 70 6f | 73 20 61 72 67 20 22 20 |insertpo|s arg " |
|000027a0| 09 22 20 63 2d 61 75 74 | 6f 2d 6e 65 77 6c 69 6e |." c-aut|o-newlin|
|000027b0| 65 20 63 2d 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 20 |e c-inde|nt-line |
|000027c0| 6e 65 77 6c 69 6e 65 20 | 6c 61 73 74 2d 63 6f 6d |newline |last-com|
|000027d0| 6d 61 6e 64 2d 63 68 61 | 72 20 32 20 64 65 6c 65 |mand-cha|r 2 dele|
|000027e0| 74 65 2d 63 68 61 72 20 | 2d 31 20 73 65 6c 66 2d |te-char |-1 self-|
|000027f0| 69 6e 73 65 72 74 2d 63 | 6f 6d 6d 61 6e 64 20 70 |insert-c|ommand p|
|00002800| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00002810| 6c 75 65 5d 20 33 20 28 | 23 24 20 2e 20 39 39 34 |lue] 3 (|#$ . 994|
|00002820| 30 29 20 22 50 22 5d 29 | 0a 23 40 35 30 20 49 6e |0) "P"])|.#@50 In|
|00002830| 73 65 72 74 20 63 68 61 | 72 61 63 74 65 72 20 61 |sert cha|racter a|
|00002840| 6e 64 20 63 6f 72 72 65 | 63 74 20 6c 69 6e 65 27 |nd corre|ct line'|
|00002850| 73 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 2e 1f 0a |s indent|ation...|
|00002860| 28 64 65 66 61 6c 69 61 | 73 20 27 65 6c 65 63 74 |(defalia|s 'elect|
|00002870| 72 69 63 2d 63 2d 73 68 | 61 72 70 2d 73 69 67 6e |ric-c-sh|arp-sign|
|00002880| 20 23 5b 28 61 72 67 29 | 20 22 8a c0 c1 78 88 6e | #[(arg)| "...x.n|
|00002890| 29 83 11 00 c1 1a c3 5c | 66 21 29 87 c5 c6 5c 66 |)......\|f!)...\f|
|000028a0| 21 21 87 22 20 5b 22 20 | 09 22 20 6e 69 6c 20 63 |!!." [" |." nil c|
|000028b0| 2d 61 75 74 6f 2d 6e 65 | 77 6c 69 6e 65 20 65 6c |-auto-ne|wline el|
|000028c0| 65 63 74 72 69 63 2d 63 | 2d 74 65 72 6d 69 6e 61 |ectric-c|-termina|
|000028d0| 74 6f 72 20 61 72 67 20 | 73 65 6c 66 2d 69 6e 73 |tor arg |self-ins|
|000028e0| 65 72 74 2d 63 6f 6d 6d | 61 6e 64 20 70 72 65 66 |ert-comm|and pref|
|000028f0| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|00002900| 5d 20 33 20 28 23 24 20 | 2e 20 31 30 32 38 36 29 |] 3 (#$ |. 10286)|
|00002910| 20 22 50 22 5d 29 0a 23 | 40 35 30 20 49 6e 73 65 | "P"]).#|@50 Inse|
|00002920| 72 74 20 63 68 61 72 61 | 63 74 65 72 20 61 6e 64 |rt chara|cter and|
|00002930| 20 63 6f 72 72 65 63 74 | 20 6c 69 6e 65 27 73 20 | correct| line's |
|00002940| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 2e 1f 0a 28 64 |indentat|ion...(d|
|00002950| 65 66 61 6c 69 61 73 20 | 27 65 6c 65 63 74 72 69 |efalias |'electri|
|00002960| 63 2d 63 2d 73 65 6d 69 | 20 23 5b 28 61 72 67 29 |c-c-semi| #[(arg)|
|00002970| 20 22 08 83 08 00 c1 5c | 6e 21 87 c3 c4 5c 6e 21 | ".....\|n!...\n!|
|00002980| 21 87 22 20 5b 63 2d 61 | 75 74 6f 2d 6e 65 77 6c |!." [c-a|uto-newl|
|00002990| 69 6e 65 20 65 6c 65 63 | 74 72 69 63 2d 63 2d 74 |ine elec|tric-c-t|
|000029a0| 65 72 6d 69 6e 61 74 6f | 72 20 61 72 67 20 73 65 |erminato|r arg se|
|000029b0| 6c 66 2d 69 6e 73 65 72 | 74 2d 63 6f 6d 6d 61 6e |lf-inser|t-comman|
|000029c0| 64 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |d prefix|-numeric|
|000029d0| 2d 76 61 6c 75 65 5d 20 | 33 20 28 23 24 20 2e 20 |-value] |3 (#$ . |
|000029e0| 31 30 35 32 34 29 20 22 | 50 22 5d 29 0a 23 40 35 |10524) "|P"]).#@5|
|000029f0| 30 20 49 6e 73 65 72 74 | 20 63 68 61 72 61 63 74 |0 Insert| charact|
|00002a00| 65 72 20 61 6e 64 20 63 | 6f 72 72 65 63 74 20 6c |er and c|orrect l|
|00002a10| 69 6e 65 27 73 20 69 6e | 64 65 6e 74 61 74 69 6f |ine's in|dentatio|
|00002a20| 6e 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |n...(def|alias 'e|
|00002a30| 6c 65 63 74 72 69 63 2d | 63 2d 74 65 72 6d 69 6e |lectric-|c-termin|
|00002a40| 61 74 6f 72 20 23 5b 28 | 61 72 67 29 20 22 c0 60 |ator #[(|arg) ".`|
|00002a50| 19 1a 0b 84 81 00 6c 83 | 81 00 8a c4 79 88 c5 c0 |......l.|....y...|
|00002a60| 77 88 67 c6 55 86 54 00 | 0e 07 c8 3d 83 38 00 c9 |w.g.U.T.|...=.8..|
|00002a70| 0e 5c 6e 21 84 38 00 8a | cb c0 77 88 c5 c0 77 88 |.\n!.8..|..w...w.|
|00002a80| 60 09 57 29 86 54 00 cc | 20 88 cd 60 09 5c 22 1e |`.W).T..| ..`.\".|
|00002a90| 0e cf 0e 0e 38 86 53 00 | d0 0e 0e 38 86 53 00 d1 |....8.S.|...8.S..|
|00002aa0| 0e 0e 38 29 29 84 81 00 | 0e 07 63 88 d2 20 88 0e |..8))...|..c.. ..|
|00002ab0| 13 83 73 00 d4 20 84 73 | 00 d5 20 88 60 d6 5a 12 |..s.. .s|.. .`.Z.|
|00002ac0| d2 20 88 8a 5c 6e 83 7c | 00 5c 6e 54 62 88 d7 d8 |. ..\n.||.\nTb...|
|00002ad0| 21 88 29 5c 6e 83 92 00 | 8a 5c 6e 62 88 d9 da 0b |!.)\n...|.\nb....|
|00002ae0| 21 21 29 82 97 00 d9 da | 0b 21 21 2a 87 22 20 5b |!!).....|.!!*." [|
|00002af0| 6e 69 6c 20 65 6e 64 20 | 69 6e 73 65 72 74 70 6f |nil end |insertpo|
|00002b00| 73 20 61 72 67 20 30 20 | 22 20 09 22 20 33 35 20 |s arg 0 |" ." 35 |
|00002b10| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 2d 63 68 61 |last-com|mand-cha|
|00002b20| 72 20 35 38 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |r 58 loo|king-at |
|00002b30| 63 2d 73 77 69 74 63 68 | 2d 6c 61 62 65 6c 2d 72 |c-switch|-label-r|
|00002b40| 65 67 65 78 70 20 22 61 | 2d 7a 41 2d 5a 30 2d 39 |egexp "a|-zA-Z0-9|
|00002b50| 5f 24 22 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |_$" begi|nning-of|
|00002b60| 2d 64 65 66 75 6e 20 70 | 61 72 73 65 2d 70 61 72 |-defun p|arse-par|
|00002b70| 74 69 61 6c 2d 73 65 78 | 70 20 70 70 73 20 33 20 |tial-sex|p pps 3 |
|00002b80| 34 20 35 20 63 2d 69 6e | 64 65 6e 74 2d 6c 69 6e |4 5 c-in|dent-lin|
|00002b90| 65 20 63 2d 61 75 74 6f | 2d 6e 65 77 6c 69 6e 65 |e c-auto|-newline|
|00002ba0| 20 63 2d 69 6e 73 69 64 | 65 2d 70 61 72 65 6e 73 | c-insid|e-parens|
|00002bb0| 2d 70 20 6e 65 77 6c 69 | 6e 65 20 32 20 64 65 6c |-p newli|ne 2 del|
|00002bc0| 65 74 65 2d 63 68 61 72 | 20 2d 31 20 73 65 6c 66 |ete-char| -1 self|
|00002bd0| 2d 69 6e 73 65 72 74 2d | 63 6f 6d 6d 61 6e 64 20 |-insert-|command |
|00002be0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|00002bf0| 61 6c 75 65 5d 20 33 20 | 28 23 24 20 2e 20 31 30 |alue] 3 |(#$ . 10|
|00002c00| 37 33 38 29 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |738) "P"|]).(defa|
|00002c10| 6c 69 61 73 20 27 63 2d | 69 6e 73 69 64 65 2d 70 |lias 'c-|inside-p|
|00002c20| 61 72 65 6e 73 2d 70 20 | 23 5b 6e 69 6c 20 22 c0 |arens-p |#[nil ".|
|00002c30| c1 c2 8f 87 22 20 5b 6e | 69 6c 20 28 62 79 74 65 |...." [n|il (byte|
|00002c40| 2d 63 6f 64 65 20 22 8a | 8c 60 c0 20 88 60 7d 88 |-code ".|.`. .`}.|
|00002c50| 64 62 88 c1 60 c2 c3 23 | 86 15 00 65 66 c4 55 2a |db..`..#|...ef.U*|
|00002c60| 87 22 20 5b 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |." [begi|nning-of|
|00002c70| 2d 64 65 66 75 6e 20 73 | 63 61 6e 2d 6c 69 73 74 |-defun s|can-list|
|00002c80| 73 20 2d 31 20 31 20 34 | 30 5d 20 34 29 20 28 28 |s -1 1 4|0] 4) ((|
|00002c90| 65 72 72 6f 72 29 29 5d | 20 33 5d 29 0a 23 40 35 |error))]| 3]).#@5|
|00002ca0| 31 37 20 49 6e 64 65 6e | 74 20 63 75 72 72 65 6e |17 Inden|t curren|
|00002cb0| 74 20 6c 69 6e 65 20 61 | 73 20 43 20 63 6f 64 65 |t line a|s C code|
|00002cc0| 2c 20 6f 72 20 69 6e 20 | 73 6f 6d 65 20 63 61 73 |, or in |some cas|
|00002cd0| 65 73 20 69 6e 73 65 72 | 74 20 61 20 74 61 62 20 |es inser|t a tab |
|00002ce0| 63 68 61 72 61 63 74 65 | 72 2e 0a 49 66 20 60 63 |characte|r..If `c|
|00002cf0| 2d 74 61 62 2d 61 6c 77 | 61 79 73 2d 69 6e 64 65 |-tab-alw|ays-inde|
|00002d00| 6e 74 27 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 20 28 |nt' is n|on-nil (|
|00002d10| 74 68 65 20 64 65 66 61 | 75 6c 74 29 2c 20 61 6c |the defa|ult), al|
|00002d20| 77 61 79 73 20 69 6e 64 | 65 6e 74 20 63 75 72 72 |ways ind|ent curr|
|00002d30| 65 6e 74 20 6c 69 6e 65 | 2e 0a 4f 74 68 65 72 77 |ent line|..Otherw|
|00002d40| 69 73 65 2c 20 69 6e 64 | 65 6e 74 20 74 68 65 20 |ise, ind|ent the |
|00002d50| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 20 6f 6e 6c |current |line onl|
|00002d60| 79 20 69 66 20 70 6f 69 | 6e 74 20 69 73 20 61 74 |y if poi|nt is at|
|00002d70| 20 74 68 65 20 6c 65 66 | 74 20 6d 61 72 67 69 6e | the lef|t margin|
|00002d80| 20 6f 72 0a 69 6e 20 74 | 68 65 20 6c 69 6e 65 27 | or.in t|he line'|
|00002d90| 73 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 3b 20 6f |s indent|ation; o|
|00002da0| 74 68 65 72 77 69 73 65 | 20 69 6e 73 65 72 74 20 |therwise| insert |
|00002db0| 61 20 74 61 62 2e 0a 0a | 41 20 6e 75 6d 65 72 69 |a tab...|A numeri|
|00002dc0| 63 20 61 72 67 75 6d 65 | 6e 74 2c 20 72 65 67 61 |c argume|nt, rega|
|00002dd0| 72 64 6c 65 73 73 20 6f | 66 20 69 74 73 20 76 61 |rdless o|f its va|
|00002de0| 6c 75 65 2c 20 6d 65 61 | 6e 73 20 69 6e 64 65 6e |lue, mea|ns inden|
|00002df0| 74 20 72 69 67 69 64 6c | 79 20 61 6c 6c 20 74 68 |t rigidl|y all th|
|00002e00| 65 0a 6c 69 6e 65 73 20 | 6f 66 20 74 68 65 20 65 |e.lines |of the e|
|00002e10| 78 70 72 65 73 73 69 6f | 6e 20 73 74 61 72 74 69 |xpressio|n starti|
|00002e20| 6e 67 20 61 66 74 65 72 | 20 70 6f 69 6e 74 20 73 |ng after| point s|
|00002e30| 6f 20 74 68 61 74 20 74 | 68 69 73 20 6c 69 6e 65 |o that t|his line|
|00002e40| 20 62 65 63 6f 6d 65 73 | 0a 70 72 6f 70 65 72 6c | becomes|.properl|
|00002e50| 79 20 69 6e 64 65 6e 74 | 65 64 2e 20 20 54 68 65 |y indent|ed.  The|
|00002e60| 20 72 65 6c 61 74 69 76 | 65 20 69 6e 64 65 6e 74 | relativ|e indent|
|00002e70| 61 74 69 6f 6e 20 61 6d | 6f 6e 67 20 74 68 65 20 |ation am|ong the |
|00002e80| 6c 69 6e 65 73 20 6f 66 | 20 74 68 65 0a 65 78 70 |lines of| the.exp|
|00002e90| 72 65 73 73 69 6f 6e 20 | 61 72 65 20 70 72 65 73 |ression |are pres|
|00002ea0| 65 72 76 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |erved...|(defalia|
|00002eb0| 73 20 27 63 2d 69 6e 64 | 65 6e 74 2d 63 6f 6d 6d |s 'c-ind|ent-comm|
|00002ec0| 61 6e 64 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |and #[(&|optional|
|00002ed0| 20 77 68 6f 6c 65 2d 65 | 78 70 29 20 22 08 83 3d | whole-e|xp) "..=|
|00002ee0| 00 c1 20 c2 89 1b 1c 1d | 8a 0e 06 83 14 00 c7 79 |.. .....|.......y|
|00002ef0| 88 8a c8 79 88 60 14 29 | 60 5c 66 57 83 2e 00 c9 |...y.`.)|`\fW....|
|00002f00| c8 21 88 60 13 ca c2 77 | 88 82 1b 00 29 0b 5c 66 |.!.`...w|....).\f|
|00002f10| 56 85 3b 00 cb 5c 66 0b | 0d cc 24 2b 87 0e 06 84 |V.;..\f.|..$+....|
|00002f20| 4f 00 8a cd c2 78 88 6e | 29 84 4f 00 ce 20 87 c1 |O....x.n|).O.. ..|
|00002f30| 20 87 22 20 5b 77 68 6f | 6c 65 2d 65 78 70 20 63 | ." [who|le-exp c|
|00002f40| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 6e 69 6c |-indent-|line nil|
|00002f50| 20 65 6e 64 20 62 65 67 | 20 73 68 69 66 74 2d 61 | end beg| shift-a|
|00002f60| 6d 74 20 63 2d 74 61 62 | 2d 61 6c 77 61 79 73 2d |mt c-tab|-always-|
|00002f70| 69 6e 64 65 6e 74 20 30 | 20 31 20 66 6f 72 77 61 |indent 0| 1 forwa|
|00002f80| 72 64 2d 73 65 78 70 20 | 22 20 09 5c 6e 22 20 69 |rd-sexp |" .\n" i|
|00002f90| 6e 64 65 6e 74 2d 63 6f | 64 65 2d 72 69 67 69 64 |ndent-co|de-rigid|
|00002fa0| 6c 79 20 22 23 22 20 22 | 20 09 22 20 69 6e 73 65 |ly "#" "| ." inse|
|00002fb0| 72 74 2d 74 61 62 5d 20 | 35 20 28 23 24 20 2e 20 |rt-tab] |5 (#$ . |
|00002fc0| 31 31 34 32 37 29 20 22 | 50 22 5d 29 0a 23 40 37 |11427) "|P"]).#@7|
|00002fd0| 38 20 49 6e 64 65 6e 74 | 20 63 75 72 72 65 6e 74 |8 Indent| current|
|00002fe0| 20 6c 69 6e 65 20 61 73 | 20 43 20 63 6f 64 65 2e | line as| C code.|
|00002ff0| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 61 6d 6f 75 |.Return |the amou|
|00003000| 6e 74 20 74 68 65 20 69 | 6e 64 65 6e 74 61 74 69 |nt the i|ndentati|
|00003010| 6f 6e 20 63 68 61 6e 67 | 65 64 20 62 79 2e 1f 0a |on chang|ed by...|
|00003020| 28 64 65 66 61 6c 69 61 | 73 20 27 63 2d 69 6e 64 |(defalia|s 'c-ind|
|00003030| 65 6e 74 2d 6c 69 6e 65 | 20 23 5b 6e 69 6c 20 22 |ent-line| #[nil "|
|00003040| c0 c1 21 c1 89 89 64 60 | 5a 1a 1b 1c 1d 1e 06 c7 |..!...d`|Z.......|
|00003050| 79 88 60 15 0e 06 c1 3d | 83 5c 22 00 c8 20 16 06 |y.`....=|.\".. ..|
|00003060| 82 e2 00 0e 06 c9 3d 83 | 30 00 ca 20 16 06 82 e2 |......=.|0.. ....|
|00003070| 00 cb cc 21 83 3c 00 c7 | 16 06 82 e2 00 cd c1 77 |...!.<..|.......w|
|00003080| 88 0e 06 3c 83 4b 00 0e | 06 40 16 06 cb 0e 0e 21 |...<.K..|.@.....!|
|00003090| 84 64 00 cb cf 21 83 70 | 00 8a d0 d1 21 88 cb d2 |.d...!.p|....!...|
|000030a0| 21 29 83 70 00 d1 0e 06 | 0e 13 5c 5c 5d 16 06 82 |!).p....|..\\]...|
|000030b0| e2 00 cb d4 21 83 88 00 | cb d5 21 84 88 00 8a d6 |....!...|..!.....|
|000030c0| 20 88 c8 20 29 16 06 82 | e2 00 cb d7 21 83 a6 00 | .. )...|....!...|
|000030d0| cb d8 21 84 a6 00 8a c1 | 75 88 d9 20 88 d6 20 88 |..!.....|u.. .. .|
|000030e0| c8 20 29 16 06 82 e2 00 | cb da 21 83 c5 00 cb db |. ).....|..!.....|
|000030f0| 21 84 c5 00 8a dc 20 29 | 83 c5 00 8a dc 20 88 c8 |!..... )|..... ..|
|00003100| 20 29 16 06 82 e2 00 67 | dd 55 83 d5 00 0e 06 0e | ).....g|.U......|
|00003110| 1e 5a 16 06 82 e2 00 67 | df 55 83 e2 00 0e 06 0e |.Z.....g|.U......|
|00003120| 20 5c 5c 16 06 cd c1 77 | 88 0e 06 69 5a 89 14 c7 | \\....w|...iZ...|
|00003130| 55 83 01 01 64 5c 6e 5a | 60 56 83 16 01 64 5c 6e |U...d\nZ|`V...d\n|
|00003140| 5a 62 88 82 16 01 0d 60 | 7c 88 0e 06 6a 88 64 5c |Zb.....`||...j.d\|
|00003150| 6e 5a 60 56 83 16 01 64 | 5c 6e 5a 62 88 5c 66 2d |nZ`V...d|\nZb.\f-|
|00003160| 87 22 20 5b 63 61 6c 63 | 75 6c 61 74 65 2d 63 2d |." [calc|ulate-c-|
|00003170| 69 6e 64 65 6e 74 20 6e | 69 6c 20 70 6f 73 20 63 |indent n|il pos c|
|00003180| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00003190| 73 68 69 66 74 2d 61 6d | 74 20 62 65 67 20 69 6e |shift-am|t beg in|
|000031a0| 64 65 6e 74 20 30 20 63 | 75 72 72 65 6e 74 2d 69 |dent 0 c|urrent-i|
|000031b0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 74 20 63 61 6c |ndentati|on t cal|
|000031c0| 63 75 6c 61 74 65 2d 63 | 2d 69 6e 64 65 6e 74 2d |culate-c|-indent-|
|000031d0| 77 69 74 68 69 6e 2d 63 | 6f 6d 6d 65 6e 74 20 6c |within-c|omment l|
|000031e0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5b 20 09 5d 2a |ooking-a|t "[ .]*|
|000031f0| 23 22 20 22 20 09 22 20 | 63 2d 73 77 69 74 63 68 |#" " ." |c-switch|
|00003200| 2d 6c 61 62 65 6c 2d 72 | 65 67 65 78 70 20 22 5b |-label-r|egexp "[|
|00003210| 41 2d 5a 61 2d 7a 5d 22 | 20 66 6f 72 77 61 72 64 |A-Za-z]"| forward|
|00003220| 2d 73 65 78 70 20 31 20 | 22 3a 22 20 63 2d 6c 61 |-sexp 1 |":" c-la|
|00003230| 62 65 6c 2d 6f 66 66 73 | 65 74 20 22 65 6c 73 65 |bel-offs|et "else|
|00003240| 5c 5c 62 22 20 22 65 6c | 73 65 5c 5c 73 5f 22 20 |\\b" "el|se\\s_" |
|00003250| 63 2d 62 61 63 6b 77 61 | 72 64 2d 74 6f 2d 73 74 |c-backwa|rd-to-st|
|00003260| 61 72 74 2d 6f 66 2d 69 | 66 20 22 7d 5b 20 09 5d |art-of-i|f "}[ .]|
|00003270| 2a 65 6c 73 65 5c 5c 62 | 22 20 22 7d 5b 20 09 5d |*else\\b|" "}[ .]|
|00003280| 2a 65 6c 73 65 5c 5c 73 | 5f 22 20 62 61 63 6b 77 |*else\\s|_" backw|
|00003290| 61 72 64 2d 73 65 78 70 | 20 22 77 68 69 6c 65 5c |ard-sexp| "while\|
|000032a0| 5c 62 22 20 22 77 68 69 | 6c 65 5c 5c 73 5f 22 20 |\b" "whi|le\\s_" |
|000032b0| 63 2d 62 61 63 6b 77 61 | 72 64 2d 74 6f 2d 73 74 |c-backwa|rd-to-st|
|000032c0| 61 72 74 2d 6f 66 2d 64 | 6f 20 31 32 35 20 63 2d |art-of-d|o 125 c-|
|000032d0| 69 6e 64 65 6e 74 2d 6c | 65 76 65 6c 20 31 32 33 |indent-l|evel 123|
|000032e0| 20 63 2d 62 72 61 63 65 | 2d 6f 66 66 73 65 74 5d | c-brace|-offset]|
|000032f0| 20 37 20 28 23 24 20 2e | 20 31 32 32 34 32 29 5d | 7 (#$ .| 12242)]|
|00003300| 29 0a 23 40 31 38 32 20 | 52 65 74 75 72 6e 20 61 |).#@182 |Return a|
|00003310| 70 70 72 6f 70 72 69 61 | 74 65 20 69 6e 64 65 6e |ppropria|te inden|
|00003320| 74 61 74 69 6f 6e 20 66 | 6f 72 20 63 75 72 72 65 |tation f|or curre|
|00003330| 6e 74 20 6c 69 6e 65 20 | 61 73 20 43 20 63 6f 64 |nt line |as C cod|
|00003340| 65 2e 0a 49 6e 20 75 73 | 75 61 6c 20 63 61 73 65 |e..In us|ual case|
|00003350| 20 72 65 74 75 72 6e 73 | 20 61 6e 20 69 6e 74 65 | returns| an inte|
|00003360| 67 65 72 3a 20 74 68 65 | 20 63 6f 6c 75 6d 6e 20 |ger: the| column |
|00003370| 74 6f 20 69 6e 64 65 6e | 74 20 74 6f 2e 0a 52 65 |to inden|t to..Re|
|00003380| 74 75 72 6e 73 20 6e 69 | 6c 20 69 66 20 6c 69 6e |turns ni|l if lin|
|00003390| 65 20 73 74 61 72 74 73 | 20 69 6e 73 69 64 65 20 |e starts| inside |
|000033a0| 61 20 73 74 72 69 6e 67 | 2c 20 74 20 69 66 20 69 |a string|, t if i|
|000033b0| 6e 20 61 20 63 6f 6d 6d | 65 6e 74 2e 1f 0a 28 64 |n a comm|ent...(d|
|000033c0| 65 66 61 6c 69 61 73 20 | 27 63 61 6c 63 75 6c 61 |efalias |'calcula|
|000033d0| 74 65 2d 63 2d 69 6e 64 | 65 6e 74 20 23 5b 28 26 |te-c-ind|ent #[(&|
|000033e0| 6f 70 74 69 6f 6e 61 6c | 20 70 61 72 73 65 2d 73 |optional| parse-s|
|000033f0| 74 61 72 74 29 20 22 8a | c0 79 88 60 c1 89 89 1a |tart) ".|.y.`....|
|00003400| 1b 1c 1d 0e 06 83 18 00 | 0e 06 62 88 82 1b 00 c7 |........|..b.....|
|00003410| 20 88 60 0d 57 83 31 00 | 60 16 06 c8 60 0d c0 23 | .`.W.1.|`...`..#|
|00003420| 89 13 41 40 12 82 1b 00 | c9 0b 38 84 3d 00 ca 0b |..A@....|..8.=...|
|00003430| 38 83 43 00 ca 0b 38 82 | 2a 02 5c 6e 84 f6 00 0d |8.C...8.|*.\n....|
|00003440| 62 88 cb c1 77 88 67 cc | 55 83 58 00 c0 82 2a 02 |b...w.g.|U.X...*.|
|00003450| cd 0e 06 86 5f 00 65 21 | 88 8a ce cf c1 d0 23 88 |...._.e!|......#.|
|00003460| c1 89 1e 11 1e 12 8a 6d | 84 7f 00 d3 d4 21 84 7f |.......m|.....!..|
|00003470| 00 d5 79 88 82 6f 00 c1 | d6 d7 8f 88 c0 79 88 d3 |..y..o..|.....y..|
|00003480| d8 21 29 83 93 00 0e 19 | 82 f2 00 d3 da 21 83 f1 |.!).....|.....!..|
|00003490| 00 d3 db 21 83 f1 00 c0 | 95 53 62 88 67 dc 55 83 |...!....|.Sb.g.U.|
|000034a0| b9 00 60 16 11 c1 dd de | 8f 88 df c1 77 88 82 a4 |..`.....|....w...|
|000034b0| 00 60 0d 57 83 f1 00 67 | e0 3e 84 f1 00 0e 11 62 |.`.W...g|.>.....b|
|000034c0| 88 c0 79 88 0e 12 84 e7 | 00 e1 e2 0e 11 e3 23 83 |..y.....|......#.|
|000034d0| e7 00 e1 e4 0e 11 e3 23 | 3f 89 16 12 83 d1 00 0e |.......#|?.......|
|000034e0| 12 84 f1 00 0e 19 82 f2 | 00 c0 2b 82 2a 02 5c 6e |........|..+.*.\n|
|000034f0| 66 cc 55 84 05 01 5c 6e | 54 62 88 69 82 2a 02 0d |f.U...\n|Tb.i.*..|
|00003500| 62 88 cd 5c 6e 21 88 68 | e5 3d 84 2b 01 68 e6 3d |b..\n!.h|.=.+.h.=|
|00003510| 83 42 01 60 e7 5a 66 e8 | 3d 84 2b 01 60 e7 5a 66 |.B.`.Zf.|=.+.`.Zf|
|00003520| 7a e9 3e 83 42 01 68 e5 | 3d 83 38 01 ea 75 88 eb |z.>.B.h.|=.8..u..|
|00003530| 5c 6e 21 88 c0 79 88 cd | 5c 6e 21 88 82 5c 66 01 |\n!..y..|\n!..\f.|
|00003540| 60 c1 1e 2c 1e 2d 0e 2c | 84 85 01 c0 79 88 6f 83 |`..,.-.,|....y.o.|
|00003550| 5e 01 60 16 2d e3 89 16 | 2c 82 4a 01 8a ea 75 88 |^.`.-...|,.J...u.|
|00003560| 68 ee 55 29 83 6f 01 ea | 75 88 82 48 01 67 ef 55 |h.U).o..|u..H.g.U|
|00003570| 83 7e 01 ea 75 88 60 16 | 2d 82 48 01 e3 89 16 2c |.~..u.`.|-.H....,|
|00003580| 83 4d 01 0e 2d 62 88 2a | 68 f0 3e 84 c0 01 8a 0d |.M..-b.*|h.>.....|
|00003590| 62 88 cb c1 77 88 67 f1 | 55 29 84 c0 01 eb 5c 6e |b...w.g.|U)....\n|
|000035a0| 21 88 0e 32 69 5c 5c 8a | 0d 62 88 cb c1 77 88 67 |!..2i\\.|.b...w.g|
|000035b0| 29 cc 3d 83 bb 01 0e 33 | 82 bc 01 c0 5c 5c 82 2a |).=....3|....\\.*|
|000035c0| 02 5c 6e 62 88 8a d5 75 | 88 c0 1e 34 f5 c1 77 88 |.\nb...u|...4..w.|
|000035d0| d3 f6 21 83 01 02 67 ef | 55 83 e0 01 d5 79 88 82 |..!...g.|U....y..|
|000035e0| ca 01 67 f7 55 83 f2 01 | e7 75 88 e1 e4 c1 d0 23 |..g.U...|.u.....#|
|000035f0| 88 82 ca 01 8a c1 7f 88 | 60 16 34 29 e1 f8 21 88 |........|`.4)..!.|
|00003600| 82 ca 01 60 0d 57 85 24 | 02 0e 34 60 56 83 16 02 |...`.W.$|..4`V...|
|00003610| f9 20 0e 3a 5a 82 17 02 | 69 67 cc 55 83 5c 22 02 |. .:Z...|ig.U.\".|
|00003620| 0e 3b 82 23 02 c0 5a 2a | 86 2a 02 fc 20 2d 87 22 |.;.#..Z*|.*.. -."|
|00003630| 20 5b 30 20 6e 69 6c 20 | 63 6f 6e 74 61 69 6e 69 | [0 nil |containi|
|00003640| 6e 67 2d 73 65 78 70 20 | 73 74 61 74 65 20 63 61 |ng-sexp |state ca|
|00003650| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 69 |se-fold-|search i|
|00003660| 6e 64 65 6e 74 2d 70 6f | 69 6e 74 20 70 61 72 73 |ndent-po|int pars|
|00003670| 65 2d 73 74 61 72 74 20 | 62 65 67 69 6e 6e 69 6e |e-start |beginnin|
|00003680| 67 2d 6f 66 2d 64 65 66 | 75 6e 20 70 61 72 73 65 |g-of-def|un parse|
|00003690| 2d 70 61 72 74 69 61 6c | 2d 73 65 78 70 20 33 20 |-partial|-sexp 3 |
|000036a0| 34 20 22 20 09 22 20 31 | 32 33 20 63 2d 62 61 63 |4 " ." 1|23 c-bac|
|000036b0| 6b 77 61 72 64 2d 74 6f | 2d 6e 6f 6e 63 6f 6d 6d |kward-to|-noncomm|
|000036c0| 65 6e 74 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |ent re-s|earch-ba|
|000036d0| 63 6b 77 61 72 64 20 22 | 5e 5b 5e 20 5c 66 09 5c |ckward "|^[^ \f.\|
|000036e0| 6e 23 5d 22 20 6d 6f 76 | 65 20 6c 69 6d 20 63 6f |n#]" mov|e lim co|
|000036f0| 6d 6d 65 6e 74 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |mment lo|oking-at|
|00003700| 20 22 20 2a 5b 28 7b 7d | 23 2f 5d 22 20 31 20 28 | " *[({}|#/]" 1 (|
|00003710| 62 61 63 6b 77 61 72 64 | 2d 73 65 78 70 20 31 29 |backward|-sexp 1)|
|00003720| 20 28 28 65 72 72 6f 72 | 29 29 20 22 44 45 46 55 | ((error|)) "DEFU|
|00003730| 4e 5c 5c 62 22 20 63 2d | 61 72 67 64 65 63 6c 2d |N\\b" c-|argdecl-|
|00003740| 69 6e 64 65 6e 74 20 22 | 5c 5c 73 77 5c 5c 7c 5c |indent "|\\sw\\|\|
|00003750| 5c 73 5f 22 20 22 5b 5e | 5c 22 5c 6e 3d 28 5d 2a |\s_" "[^|\"\n=(]*|
|00003760| 28 22 20 34 30 20 28 66 | 6f 72 77 61 72 64 2d 73 |(" 40 (f|orward-s|
|00003770| 65 78 70 20 31 29 20 28 | 28 65 72 72 6f 72 29 29 |exp 1) (|(error))|
|00003780| 20 22 20 09 5c 66 22 20 | 28 34 34 20 35 39 29 20 | " .\f" |(44 59) |
|00003790| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|000037a0| 2f 2a 22 20 74 20 22 2a | 2f 22 20 34 34 20 35 38 |/*" t "*|/" 44 58|
|000037b0| 20 32 20 33 39 20 28 31 | 31 39 20 39 35 29 20 2d | 2 39 (1|19 95) -|
|000037c0| 31 20 63 2d 62 61 63 6b | 77 61 72 64 2d 74 6f 2d |1 c-back|ward-to-|
|000037d0| 73 74 61 72 74 2d 6f 66 | 2d 63 6f 6e 74 69 6e 75 |start-of|-continu|
|000037e0| 65 64 2d 65 78 70 20 73 | 74 6f 70 20 66 6f 75 6e |ed-exp s|top foun|
|000037f0| 64 20 39 32 20 33 35 20 | 28 30 20 34 34 20 35 39 |d 92 35 |(0 44 59|
|00003800| 20 31 32 35 20 31 32 33 | 29 20 31 32 35 20 63 2d | 125 123|) 125 c-|
|00003810| 63 6f 6e 74 69 6e 75 65 | 64 2d 73 74 61 74 65 6d |continue|d-statem|
|00003820| 65 6e 74 2d 6f 66 66 73 | 65 74 20 63 2d 63 6f 6e |ent-offs|et c-con|
|00003830| 74 69 6e 75 65 64 2d 62 | 72 61 63 65 2d 6f 66 66 |tinued-b|race-off|
|00003840| 73 65 74 20 63 6f 6c 6f | 6e 2d 6c 69 6e 65 2d 65 |set colo|n-line-e|
|00003850| 6e 64 20 22 20 09 5c 6e | 22 20 22 23 5c 5c 7c 2f |nd " .\n|" "#\\|/|
|00003860| 5c 5c 2a 5c 5c 7c 63 61 | 73 65 5b 20 09 5c 6e 27 |\\*\\|ca|se[ .\n'|
|00003870| 2f 28 5d 2e 2a 3a 5c 5c | 7c 5b 61 2d 7a 41 2d 5a |/(].*:\\||[a-zA-Z|
|00003880| 30 2d 39 5f 24 5d 2a 3a | 22 20 34 37 20 22 3a 22 |0-9_$]*:|" 47 ":"|
|00003890| 20 63 75 72 72 65 6e 74 | 2d 69 6e 64 65 6e 74 61 | current|-indenta|
|000038a0| 74 69 6f 6e 20 63 2d 6c | 61 62 65 6c 2d 6f 66 66 |tion c-l|abel-off|
|000038b0| 73 65 74 20 63 2d 62 72 | 61 63 65 2d 6f 66 66 73 |set c-br|ace-offs|
|000038c0| 65 74 20 63 61 6c 63 75 | 6c 61 74 65 2d 63 2d 69 |et calcu|late-c-i|
|000038d0| 6e 64 65 6e 74 2d 61 66 | 74 65 72 2d 62 72 61 63 |ndent-af|ter-brac|
|000038e0| 65 5d 20 35 20 28 23 24 | 20 2e 20 31 33 30 36 34 |e] 5 (#$| . 13064|
|000038f0| 29 5d 29 0a 23 40 31 32 | 31 20 52 65 74 75 72 6e |)]).#@12|1 Return|
|00003900| 20 74 68 65 20 70 72 6f | 70 65 72 20 43 20 69 6e | the pro|per C in|
|00003910| 64 65 6e 74 20 66 6f 72 | 20 74 68 65 20 66 69 72 |dent for| the fir|
|00003920| 73 74 20 6c 69 6e 65 20 | 61 66 74 65 72 20 61 6e |st line |after an|
|00003930| 20 6f 70 65 6e 2d 62 72 | 61 63 65 2e 0a 54 68 69 | open-br|ace..Thi|
|00003940| 73 20 66 75 6e 63 74 69 | 6f 6e 20 69 73 20 63 61 |s functi|on is ca|
|00003950| 6c 6c 65 64 20 77 69 74 | 68 20 70 6f 69 6e 74 20 |lled wit|h point |
|00003960| 62 65 66 6f 72 65 20 74 | 68 65 20 62 72 61 63 65 |before t|he brace|
|00003970| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 61 |...(defa|lias 'ca|
|00003980| 6c 63 75 6c 61 74 65 2d | 63 2d 69 6e 64 65 6e 74 |lculate-|c-indent|
|00003990| 2d 61 66 74 65 72 2d 62 | 72 61 63 65 20 23 5b 6e |-after-b|race #[n|
|000039a0| 69 6c 20 22 6e 83 10 00 | 08 c1 55 83 10 00 5c 6e |il "n...|..U...\n|
|000039b0| 0b 5c 5c 82 11 00 08 c4 | c5 78 88 6e 83 1d 00 c1 |.\\.....|.x.n....|
|000039c0| 82 1f 00 0e 06 5c 5c 68 | c7 3d 83 2a 00 c8 c9 21 |.....\\h|.=.*...!|
|000039d0| 88 ca 20 5c 5c 87 22 20 | 5b 63 2d 69 6e 64 65 6e |.. \\." |[c-inden|
|000039e0| 74 2d 6c 65 76 65 6c 20 | 30 20 63 2d 62 72 61 63 |t-level |0 c-brac|
|000039f0| 65 2d 6f 66 66 73 65 74 | 20 63 2d 63 6f 6e 74 69 |e-offset| c-conti|
|00003a00| 6e 75 65 64 2d 73 74 61 | 74 65 6d 65 6e 74 2d 6f |nued-sta|tement-o|
|00003a10| 66 66 73 65 74 20 22 20 | 09 22 20 6e 69 6c 20 63 |ffset " |." nil c|
|00003a20| 2d 62 72 61 63 65 2d 69 | 6d 61 67 69 6e 61 72 79 |-brace-i|maginary|
|00003a30| 2d 6f 66 66 73 65 74 20 | 34 31 20 66 6f 72 77 61 |-offset |41 forwa|
|00003a40| 72 64 2d 73 65 78 70 20 | 2d 31 20 63 75 72 72 65 |rd-sexp |-1 curre|
|00003a50| 6e 74 2d 69 6e 64 65 6e | 74 61 74 69 6f 6e 5d 20 |nt-inden|tation] |
|00003a60| 33 20 28 23 24 20 2e 20 | 31 34 35 38 36 29 5d 29 |3 (#$ . |14586)])|
|00003a70| 0a 23 40 32 30 34 20 52 | 65 74 75 72 6e 20 74 68 |.#@204 R|eturn th|
|00003a80| 65 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 61 6d |e indent|ation am|
|00003a90| 6f 75 6e 74 20 66 6f 72 | 20 6c 69 6e 65 20 69 6e |ount for| line in|
|00003aa0| 73 69 64 65 20 61 20 62 | 6c 6f 63 6b 20 63 6f 6d |side a b|lock com|
|00003ab0| 6d 65 6e 74 2e 0a 4f 70 | 74 69 6f 6e 61 6c 20 61 |ment..Op|tional a|
|00003ac0| 72 67 20 41 46 54 45 52 | 2d 53 54 41 52 20 6d 65 |rg AFTER|-STAR me|
|00003ad0| 61 6e 73 2c 20 69 66 20 | 6c 69 6e 65 73 20 69 6e |ans, if |lines in|
|00003ae0| 20 74 68 65 20 63 6f 6d | 6d 65 6e 74 20 68 61 76 | the com|ment hav|
|00003af0| 65 20 61 20 6c 65 61 64 | 69 6e 67 20 73 74 61 72 |e a lead|ing star|
|00003b00| 2c 0a 72 65 74 75 72 6e | 20 74 68 65 20 69 6e 64 |,.return| the ind|
|00003b10| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |entation| of the |
|00003b20| 74 65 78 74 20 74 68 61 | 74 20 77 6f 75 6c 64 20 |text tha|t would |
|00003b30| 66 6f 6c 6c 6f 77 20 74 | 68 69 73 20 73 74 61 72 |follow t|his star|
|00003b40| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 61 |...(defa|lias 'ca|
|00003b50| 6c 63 75 6c 61 74 65 2d | 63 2d 69 6e 64 65 6e 74 |lculate-|c-indent|
|00003b60| 2d 77 69 74 68 69 6e 2d | 63 6f 6d 6d 65 6e 74 20 |-within-|comment |
|00003b70| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 66 74 |#[(&opti|onal aft|
|00003b80| 65 72 2d 73 74 61 72 29 | 20 22 c0 89 19 1a 8a c3 |er-star)| "......|
|00003b90| 79 88 c4 c0 77 88 67 c5 | 55 11 c6 c0 78 88 60 12 |y...w.g.|U...x.`.|
|00003ba0| c3 79 88 c4 c0 77 88 0e | 07 83 2c 00 c8 c9 21 83 |.y...w..|..,...!.|
|00003bb0| 2c 00 ca cb 21 88 ca cc | 5c 6e cd 23 83 42 00 09 |,...!...|\n.#.B..|
|00003bc0| 83 42 00 0e 07 84 42 00 | c3 94 54 62 88 c8 ce 21 |.B....B.|..Tb...!|
|00003bd0| 83 53 00 68 c5 55 83 53 | 00 69 54 82 54 00 69 2b |.S.h.U.S|.iT.T.i+|
|00003be0| 87 22 20 5b 6e 69 6c 20 | 73 74 61 72 2d 73 74 61 |." [nil |star-sta|
|00003bf0| 72 74 20 65 6e 64 20 30 | 20 22 20 09 22 20 34 32 |rt end 0| " ." 42|
|00003c00| 20 22 20 09 5c 6e 22 20 | 61 66 74 65 72 2d 73 74 | " .\n" |after-st|
|00003c10| 61 72 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5c |ar looki|ng-at "\|
|00003c20| 5c 2a 22 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |\*" re-s|earch-fo|
|00003c30| 72 77 61 72 64 20 22 5c | 5c 2a 5b 20 09 5d 2a 22 |rward "\|\*[ .]*"|
|00003c40| 20 22 2f 5c 5c 2a 5b 20 | 09 5d 2a 22 20 74 20 22 | "/\\*[ |.]*" t "|
|00003c50| 5b 20 09 5d 2a 24 22 5d | 20 34 20 28 23 24 20 2e |[ .]*$"]| 4 (#$ .|
|00003c60| 20 31 34 39 36 37 29 5d | 29 0a 28 64 65 66 61 6c | 14967)]|).(defal|
|00003c70| 69 61 73 20 27 63 2d 62 | 61 63 6b 77 61 72 64 2d |ias 'c-b|ackward-|
|00003c80| 74 6f 2d 6e 6f 6e 63 6f | 6d 6d 65 6e 74 20 23 5b |to-nonco|mment #[|
|00003c90| 28 6c 69 6d 29 20 22 c0 | 89 19 1a 09 3f 85 49 00 |(lim) ".|....?.I.|
|00003ca0| c3 5c 66 78 88 60 12 60 | 5c 66 c5 5c 5c 59 83 2b |.\fx.`.`|\f.\\Y.+|
|00003cb0| 00 8a c6 75 88 c7 c8 21 | 29 83 2b 00 c9 ca 5c 66 |...u...!|).+...\f|
|00003cc0| cb 23 88 82 04 00 60 5c | 66 58 86 3e 00 8a cc 79 |.#....`\|fX.>...y|
|00003cd0| 88 cd c0 77 88 c7 ce 21 | 29 3f 89 11 84 04 00 cc |...w...!|)?......|
|00003ce0| 79 88 82 04 00 2a 87 22 | 20 5b 6e 69 6c 20 73 74 |y....*."| [nil st|
|00003cf0| 6f 70 20 6f 70 6f 69 6e | 74 20 22 20 09 5c 6e 5c |op opoin|t " .\n\|
|00003d00| 66 22 20 6c 69 6d 20 32 | 20 2d 32 20 6c 6f 6f 6b |f" lim 2| -2 look|
|00003d10| 69 6e 67 2d 61 74 20 22 | 5c 5c 2a 2f 22 20 73 65 |ing-at "|\\*/" se|
|00003d20| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 2f |arch-bac|kward "/|
|00003d30| 2a 22 20 6d 6f 76 65 20 | 30 20 22 20 09 22 20 22 |*" move |0 " ." "|
|00003d40| 23 22 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |#"] 5]).|(defalia|
|00003d50| 73 20 27 63 2d 62 61 63 | 6b 77 61 72 64 2d 74 6f |s 'c-bac|kward-to|
|00003d60| 2d 73 74 61 72 74 2d 6f | 66 2d 63 6f 6e 74 69 6e |-start-o|f-contin|
|00003d70| 75 65 64 2d 65 78 70 20 | 23 5b 28 6c 69 6d 29 20 |ued-exp |#[(lim) |
|00003d80| 22 68 c0 3e 83 5c 6e 00 | c1 c2 21 88 c3 79 88 60 |"h.>.\n.|..!..y.`|
|00003d90| 5c 66 58 83 17 00 5c 66 | 54 62 88 c5 c6 77 87 22 |\fX...\f|Tb...w."|
|00003da0| 20 5b 28 34 31 20 33 34 | 29 20 66 6f 72 77 61 72 | [(41 34|) forwar|
|00003db0| 64 2d 73 65 78 70 20 2d | 31 20 30 20 6c 69 6d 20 |d-sexp -|1 0 lim |
|00003dc0| 22 20 09 22 20 6e 69 6c | 5d 20 32 5d 29 0a 23 40 |" ." nil|] 2]).#@|
|00003dd0| 35 30 20 4d 6f 76 65 20 | 74 6f 20 74 68 65 20 73 |50 Move |to the s|
|00003de0| 74 61 72 74 20 6f 66 20 | 74 68 65 20 6c 61 73 74 |tart of |the last|
|00003df0| 20 22 75 6e 62 61 6c 61 | 6e 63 65 64 22 20 60 69 | "unbala|nced" `i|
|00003e00| 66 27 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |f'...(de|falias '|
|00003e10| 63 2d 62 61 63 6b 77 61 | 72 64 2d 74 6f 2d 73 74 |c-backwa|rd-to-st|
|00003e20| 61 72 74 2d 6f 66 2d 69 | 66 20 23 5b 28 26 6f 70 |art-of-i|f #[(&op|
|00003e30| 74 69 6f 6e 61 6c 20 6c | 69 6d 69 74 29 20 22 08 |tional l|imit) ".|
|00003e40| 84 0b 00 8a c1 20 88 60 | 29 10 c2 c3 1c 1d 6f 3f |..... .`|).....o?|
|00003e50| 85 51 00 0d c6 55 3f 85 | 51 00 c7 c2 21 88 c8 c9 |.Q...U?.|Q...!...|
|00003e60| 21 83 31 00 c8 ca 21 84 | 31 00 0d 54 15 82 0f 00 |!.1...!.|1..T....|
|00003e70| c8 cb 21 83 43 00 c8 cc | 21 84 43 00 0d 53 15 82 |..!.C...|!.C..S..|
|00003e80| 0f 00 60 08 57 83 0f 00 | c6 15 08 62 88 82 0f 00 |..`.W...|...b....|
|00003e90| 2a 87 22 20 5b 6c 69 6d | 69 74 20 62 65 67 69 6e |*." [lim|it begin|
|00003ea0| 6e 69 6e 67 2d 6f 66 2d | 64 65 66 75 6e 20 31 20 |ning-of-|defun 1 |
|00003eb0| 6e 69 6c 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |nil case|-fold-se|
|00003ec0| 61 72 63 68 20 69 66 2d | 6c 65 76 65 6c 20 30 20 |arch if-|level 0 |
|00003ed0| 62 61 63 6b 77 61 72 64 | 2d 73 65 78 70 20 6c 6f |backward|-sexp lo|
|00003ee0| 6f 6b 69 6e 67 2d 61 74 | 20 22 65 6c 73 65 5c 5c |oking-at| "else\\|
|00003ef0| 62 22 20 22 65 6c 73 65 | 5c 5c 73 5f 22 20 22 69 |b" "else|\\s_" "i|
|00003f00| 66 5c 5c 62 22 20 22 69 | 66 5c 5c 73 5f 22 5d 20 |f\\b" "i|f\\s_"] |
|00003f10| 32 20 28 23 24 20 2e 20 | 31 35 38 32 37 29 5d 29 |2 (#$ . |15827)])|
|00003f20| 0a 23 40 31 31 37 20 49 | 66 20 70 6f 69 6e 74 20 |.#@117 I|f point |
|00003f30| 66 6f 6c 6c 6f 77 73 20 | 61 20 60 64 6f 27 20 73 |follows |a `do' s|
|00003f40| 74 61 74 65 6d 65 6e 74 | 2c 20 6d 6f 76 65 20 74 |tatement|, move t|
|00003f50| 6f 20 62 65 67 69 6e 6e | 69 6e 67 20 6f 66 20 69 |o beginn|ing of i|
|00003f60| 74 20 61 6e 64 20 72 65 | 74 75 72 6e 20 74 2e 0a |t and re|turn t..|
|00003f70| 4f 74 68 65 72 77 69 73 | 65 20 72 65 74 75 72 6e |Otherwis|e return|
|00003f80| 20 6e 69 6c 20 61 6e 64 | 20 64 6f 6e 27 74 20 6d | nil and| don't m|
|00003f90| 6f 76 65 20 70 6f 69 6e | 74 2e 1f 0a 28 64 65 66 |ove poin|t...(def|
|00003fa0| 61 6c 69 61 73 20 27 63 | 2d 62 61 63 6b 77 61 72 |alias 'c|-backwar|
|00003fb0| 64 2d 74 6f 2d 73 74 61 | 72 74 2d 6f 66 2d 64 6f |d-to-sta|rt-of-do|
|00003fc0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6c 69 | #[(&opt|ional li|
|00003fd0| 6d 69 74 29 20 22 08 84 | 0b 00 8a c1 20 88 60 29 |mit) "..|.... .`)|
|00003fe0| 10 c2 60 c3 1c 1d 1e 06 | 5c 66 84 6b 00 60 1e 07 |..`.....|\f.k.`..|
|00003ff0| c3 c8 c9 8f 88 5c 66 84 | 67 00 ca cb 21 83 2d 00 |.....\f.|g...!.-.|
|00004000| cc 14 82 67 00 8a cd ce | 21 88 0e 06 84 3d 00 68 |...g....|!....=.h|
|00004010| cf 55 86 53 00 d0 d1 0e | 07 c2 0e 06 83 51 00 68 |.U.S....|.....Q.h|
|00004020| cf 55 84 51 00 d2 82 52 | 00 ce 24 29 83 5c 5c 00 |.U.Q...R|..$).\\.|
|00004030| d3 14 82 67 00 c3 16 06 | 60 08 57 83 67 00 d3 14 |...g....|`.W.g...|
|00004040| 29 82 12 00 5c 66 cc 3d | 83 75 00 c2 82 79 00 0d |)...\f.=|.u...y..|
|00004050| 62 88 c3 2b 87 22 20 5b | 6c 69 6d 69 74 20 62 65 |b..+." [|limit be|
|00004060| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 64 65 66 75 6e |ginning-|of-defun|
|00004070| 20 74 20 6e 69 6c 20 64 | 6f 6e 65 20 73 74 61 72 | t nil d|one star|
|00004080| 74 70 6f 73 20 66 69 72 | 73 74 20 6e 65 78 74 2d |tpos fir|st next-|
|00004090| 73 74 61 72 74 20 28 62 | 61 63 6b 77 61 72 64 2d |start (b|ackward-|
|000040a0| 73 65 78 70 20 31 29 20 | 28 28 65 72 72 6f 72 20 |sexp 1) |((error |
|000040b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c0 87 |(byte-co|de "....|
|000040c0| 22 20 5b 66 61 69 6c 20 | 64 6f 6e 65 5d 20 31 29 |" [fail |done] 1)|
|000040d0| 29 29 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 64 |)) looki|ng-at "d|
|000040e0| 6f 5c 5c 62 22 20 73 75 | 63 63 65 65 64 20 66 6f |o\\b" su|cceed fo|
|000040f0| 72 77 61 72 64 2d 73 65 | 78 70 20 31 20 31 32 35 |rward-se|xp 1 125|
|00004100| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00004110| 22 3b 22 20 32 20 66 61 | 69 6c 5d 20 36 20 28 23 |";" 2 fa|il] 6 (#|
|00004120| 24 20 2e 20 31 36 31 36 | 37 29 5d 29 0a 23 40 33 |$ . 1616|7)]).#@3|
|00004130| 30 35 20 47 6f 20 74 6f | 20 74 68 65 20 62 65 67 |05 Go to| the beg|
|00004140| 69 6e 6e 69 6e 67 20 6f | 66 20 74 68 65 20 69 6e |inning o|f the in|
|00004150| 6e 65 72 6d 6f 73 74 20 | 43 20 73 74 61 74 65 6d |nermost |C statem|
|00004160| 65 6e 74 2e 0a 57 69 74 | 68 20 70 72 65 66 69 78 |ent..Wit|h prefix|
|00004170| 20 61 72 67 2c 20 67 6f | 20 62 61 63 6b 20 4e 20 | arg, go| back N |
|00004180| 2d 20 31 20 73 74 61 74 | 65 6d 65 6e 74 73 2e 20 |- 1 stat|ements. |
|00004190| 20 49 66 20 61 6c 72 65 | 61 64 79 20 61 74 20 74 | If alre|ady at t|
|000041a0| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |he begin|ning of |
|000041b0| 61 0a 73 74 61 74 65 6d | 65 6e 74 20 74 68 65 6e |a.statem|ent then|
|000041c0| 20 67 6f 20 74 6f 20 74 | 68 65 20 62 65 67 69 6e | go to t|he begin|
|000041d0| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 70 72 65 63 |ning of |the prec|
|000041e0| 65 64 69 6e 67 20 6f 6e | 65 2e 0a 49 66 20 77 69 |eding on|e..If wi|
|000041f0| 74 68 69 6e 20 61 20 73 | 74 72 69 6e 67 20 6f 72 |thin a s|tring or|
|00004200| 20 63 6f 6d 6d 65 6e 74 | 2c 20 6f 72 20 6e 65 78 | comment|, or nex|
|00004210| 74 20 74 6f 20 61 20 63 | 6f 6d 6d 65 6e 74 20 28 |t to a c|omment (|
|00004220| 6f 6e 6c 79 20 77 68 69 | 74 65 73 70 61 63 65 20 |only whi|tespace |
|00004230| 62 65 74 77 65 65 6e 29 | 2c 0a 6d 6f 76 65 20 62 |between)|,.move b|
|00004240| 79 20 73 65 6e 74 65 6e | 63 65 73 20 69 6e 73 74 |y senten|ces inst|
|00004250| 65 61 64 20 6f 66 20 73 | 74 61 74 65 6d 65 6e 74 |ead of s|tatement|
|00004260| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |s...(def|alias 'c|
|00004270| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 73 74 |-beginni|ng-of-st|
|00004280| 61 74 65 6d 65 6e 74 20 | 23 5b 28 63 6f 75 6e 74 |atement |#[(count|
|00004290| 29 20 22 60 c0 19 1a 8a | c3 20 88 c4 60 5c 6e c0 |) "`....|. ..`\n.|
|000042a0| 89 24 11 29 c5 09 38 84 | 36 00 c6 09 38 84 36 00 |.$.)..8.|6...8.6.|
|000042b0| c7 c8 0e 09 50 21 84 36 | 00 8a ca c0 78 88 60 cb |....P!.6|....x.`.|
|000042c0| 5a 62 88 c7 cc 21 29 83 | 3e 00 cd 0e 0e 5b 21 82 |Zb...!).|>....[!.|
|000042d0| 64 00 0e 0e cf 56 83 51 | 00 d0 20 88 0e 0e 53 89 |d....V.Q|.. ...S.|
|000042e0| 16 0e 82 40 00 0e 0e cf | 57 85 64 00 d1 20 88 0e |...@....|W.d.. ..|
|000042f0| 0e 54 89 16 0e 82 53 00 | 2a 87 22 20 5b 6e 69 6c |.T....S.|*." [nil|
|00004300| 20 73 74 61 74 65 20 68 | 65 72 65 20 62 65 67 69 | state h|ere begi|
|00004310| 6e 6e 69 6e 67 2d 6f 66 | 2d 64 65 66 75 6e 20 70 |nning-of|-defun p|
|00004320| 61 72 73 65 2d 70 61 72 | 74 69 61 6c 2d 73 65 78 |arse-par|tial-sex|
|00004330| 70 20 33 20 34 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |p 3 4 lo|oking-at|
|00004340| 20 22 5b 20 09 5d 2a 22 | 20 63 6f 6d 6d 65 6e 74 | "[ .]*"| comment|
|00004350| 2d 73 74 61 72 74 2d 73 | 6b 69 70 20 22 20 09 22 |-start-s|kip " ."|
|00004360| 20 32 20 22 5c 5c 2a 2f | 22 20 66 6f 72 77 61 72 | 2 "\\*/|" forwar|
|00004370| 64 2d 73 65 6e 74 65 6e | 63 65 20 63 6f 75 6e 74 |d-senten|ce count|
|00004380| 20 30 20 63 2d 62 65 67 | 69 6e 6e 69 6e 67 2d 6f | 0 c-beg|inning-o|
|00004390| 66 2d 73 74 61 74 65 6d | 65 6e 74 2d 31 20 63 2d |f-statem|ent-1 c-|
|000043a0| 65 6e 64 2d 6f 66 2d 73 | 74 61 74 65 6d 65 6e 74 |end-of-s|tatement|
|000043b0| 2d 31 5d 20 36 20 28 23 | 24 20 2e 20 31 36 36 39 |-1] 6 (#|$ . 1669|
|000043c0| 31 29 20 22 70 22 5d 29 | 0a 23 40 32 32 34 20 47 |1) "p"])|.#@224 G|
|000043d0| 6f 20 74 6f 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |o to the| end of |
|000043e0| 74 68 65 20 69 6e 6e 65 | 72 6d 6f 73 74 20 43 20 |the inne|rmost C |
|000043f0| 73 74 61 74 65 6d 65 6e | 74 2e 0a 57 69 74 68 20 |statemen|t..With |
|00004400| 70 72 65 66 69 78 20 61 | 72 67 2c 20 67 6f 20 66 |prefix a|rg, go f|
|00004410| 6f 72 77 61 72 64 20 4e | 20 2d 20 31 20 73 74 61 |orward N| - 1 sta|
|00004420| 74 65 6d 65 6e 74 73 2e | 0a 4d 6f 76 65 20 66 6f |tements.|.Move fo|
|00004430| 72 77 61 72 64 20 74 6f | 20 65 6e 64 20 6f 66 20 |rward to| end of |
|00004440| 74 68 65 20 6e 65 78 74 | 20 73 74 61 74 65 6d 65 |the next| stateme|
|00004450| 6e 74 20 69 66 20 61 6c | 72 65 61 64 79 20 61 74 |nt if al|ready at|
|00004460| 20 65 6e 64 2e 0a 49 66 | 20 77 69 74 68 69 6e 20 | end..If| within |
|00004470| 61 20 73 74 72 69 6e 67 | 20 6f 72 20 63 6f 6d 6d |a string| or comm|
|00004480| 65 6e 74 2c 20 6d 6f 76 | 65 20 62 79 20 73 65 6e |ent, mov|e by sen|
|00004490| 74 65 6e 63 65 73 20 69 | 6e 73 74 65 61 64 20 6f |tences i|nstead o|
|000044a0| 66 20 73 74 61 74 65 6d | 65 6e 74 73 2e 1f 0a 28 |f statem|ents...(|
|000044b0| 64 65 66 61 6c 69 61 73 | 20 27 63 2d 65 6e 64 2d |defalias| 'c-end-|
|000044c0| 6f 66 2d 73 74 61 74 65 | 6d 65 6e 74 20 23 5b 28 |of-state|ment #[(|
|000044d0| 63 6f 75 6e 74 29 20 22 | c0 09 5b 21 87 22 20 5b |count) "|..[!." [|
|000044e0| 63 2d 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 73 |c-beginn|ing-of-s|
|000044f0| 74 61 74 65 6d 65 6e 74 | 20 63 6f 75 6e 74 5d 20 |tatement| count] |
|00004500| 32 20 28 23 24 20 2e 20 | 31 37 33 35 39 29 20 22 |2 (#$ . |17359) "|
|00004510| 70 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |p"]).(de|falias '|
|00004520| 63 2d 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 73 |c-beginn|ing-of-s|
|00004530| 74 61 74 65 6d 65 6e 74 | 2d 31 20 23 5b 6e 69 6c |tatement|-1 #[nil|
|00004540| 20 22 60 c0 19 1a c3 c4 | c5 8f 2a 87 22 20 5b 74 | "`.....|..*." [t|
|00004550| 20 66 69 72 73 74 20 6c | 61 73 74 2d 62 65 67 69 | first l|ast-begi|
|00004560| 6e 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |n nil (b|yte-code|
|00004570| 20 22 6f 84 1b 00 c0 c1 | 21 88 5c 6e 84 14 00 c3 | "o.....|!.\n....|
|00004580| c4 0d c6 23 84 1b 00 60 | 15 c7 12 82 00 00 0d 62 |...#...`|.......b|
|00004590| 87 22 20 5b 62 61 63 6b | 77 61 72 64 2d 73 65 78 |." [back|ward-sex|
|000045a0| 70 20 31 20 66 69 72 73 | 74 20 72 65 2d 73 65 61 |p 1 firs|t re-sea|
|000045b0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5b 3b 7b |rch-forw|ard "[;{|
|000045c0| 7d 5d 22 20 6c 61 73 74 | 2d 62 65 67 69 6e 20 74 |}]" last|-begin t|
|000045d0| 20 6e 69 6c 5d 20 34 29 | 20 28 28 65 72 72 6f 72 | nil] 4)| ((error|
|000045e0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 83 08 | (byte-c|ode "...|
|000045f0| 00 c1 c2 21 87 0b 62 87 | 22 20 5b 66 69 72 73 74 |...!..b.|" [first|
|00004600| 20 62 61 63 6b 77 61 72 | 64 2d 75 70 2d 6c 69 73 | backwar|d-up-lis|
|00004610| 74 20 31 20 6c 61 73 74 | 2d 62 65 67 69 6e 5d 20 |t 1 last|-begin] |
|00004620| 32 29 29 29 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |2)))] 3]|).(defal|
|00004630| 69 61 73 20 27 63 2d 65 | 6e 64 2d 6f 66 2d 73 74 |ias 'c-e|nd-of-st|
|00004640| 61 74 65 6d 65 6e 74 2d | 31 20 23 5b 6e 69 6c 20 |atement-|1 #[nil |
|00004650| 22 c0 c1 c2 8f 87 22 20 | 5b 6e 69 6c 20 28 62 79 |"....." |[nil (by|
|00004660| 74 65 2d 63 6f 64 65 20 | 22 6d 84 19 00 60 18 c1 |te-code |"m...`..|
|00004670| c2 21 88 60 1b 8a 08 62 | 88 c4 c5 0b c6 23 2b 83 |.!.`...b|.....#+.|
|00004680| 00 00 c7 c8 21 88 c2 75 | 87 22 20 5b 62 65 67 20 |....!..u|." [beg |
|00004690| 66 6f 72 77 61 72 64 2d | 73 65 78 70 20 31 20 65 |forward-|sexp 1 e|
|000046a0| 6e 64 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |nd re-se|arch-for|
|000046b0| 77 61 72 64 20 22 5b 3b | 7b 7d 5d 22 20 74 20 72 |ward "[;|{}]" t r|
|000046c0| 65 2d 73 65 61 72 63 68 | 2d 62 61 63 6b 77 61 72 |e-search|-backwar|
|000046d0| 64 20 22 5b 3b 7d 5d 22 | 5d 20 34 29 20 28 28 65 |d "[;}]"|] 4) ((e|
|000046e0| 72 72 6f 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |rror (by|te-code |
|000046f0| 22 60 18 c1 c2 21 88 60 | 1b 08 62 88 c4 c5 0b c6 |"`...!.`|..b.....|
|00004700| 23 2a 87 22 20 5b 62 65 | 67 20 62 61 63 6b 77 61 |#*." [be|g backwa|
|00004710| 72 64 2d 75 70 2d 6c 69 | 73 74 20 2d 31 20 65 6e |rd-up-li|st -1 en|
|00004720| 64 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |d search|-forward|
|00004730| 20 22 3b 22 20 6d 6f 76 | 65 5d 20 34 29 29 29 5d | ";" mov|e] 4)))]|
|00004740| 20 33 5d 29 0a 23 40 35 | 32 20 50 75 74 20 6d 61 | 3]).#@5|2 Put ma|
|00004750| 72 6b 20 61 74 20 65 6e | 64 20 6f 66 20 43 20 66 |rk at en|d of C f|
|00004760| 75 6e 63 74 69 6f 6e 2c | 20 70 6f 69 6e 74 20 61 |unction,| point a|
|00004770| 74 20 62 65 67 69 6e 6e | 69 6e 67 2e 1f 0a 28 64 |t beginn|ing...(d|
|00004780| 65 66 61 6c 69 61 73 20 | 27 6d 61 72 6b 2d 63 2d |efalias |'mark-c-|
|00004790| 66 75 6e 63 74 69 6f 6e | 20 23 5b 6e 69 6c 20 22 |function| #[nil "|
|000047a0| c0 60 21 88 c1 20 88 c0 | 60 c2 c3 23 88 c4 20 88 |.`!.. ..|`..#.. .|
|000047b0| c5 20 87 22 20 5b 70 75 | 73 68 2d 6d 61 72 6b 20 |. ." [pu|sh-mark |
|000047c0| 65 6e 64 2d 6f 66 2d 64 | 65 66 75 6e 20 6e 69 6c |end-of-d|efun nil|
|000047d0| 20 74 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d | t begin|ning-of-|
|000047e0| 64 65 66 75 6e 20 62 61 | 63 6b 77 61 72 64 2d 70 |defun ba|ckward-p|
|000047f0| 61 72 61 67 72 61 70 68 | 5d 20 34 20 28 23 24 20 |aragraph|] 4 (#$ |
|00004800| 2e 20 31 38 32 35 30 29 | 20 6e 69 6c 5d 29 0a 23 |. 18250)| nil]).#|
|00004810| 40 35 33 20 49 6e 64 65 | 6e 74 20 65 61 63 68 20 |@53 Inde|nt each |
|00004820| 6c 69 6e 65 20 6f 66 20 | 74 68 65 20 43 20 67 72 |line of |the C gr|
|00004830| 6f 75 70 69 6e 67 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ouping f|ollowing|
|00004840| 20 70 6f 69 6e 74 2e 1f | 0a 28 64 65 66 61 6c 69 | point..|.(defali|
|00004850| 61 73 20 27 69 6e 64 65 | 6e 74 2d 63 2d 65 78 70 |as 'inde|nt-c-exp|
|00004860| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 65 6e | #[(&opt|ional en|
|00004870| 64 70 6f 73 29 20 22 c0 | 43 19 60 1a 0b 83 24 00 |dpos) ".|C.`...$.|
|00004880| c0 1c 8a c5 75 88 c6 20 | 88 60 14 29 5c 66 12 8c |....u.. |.`.)\f..|
|00004890| 5c 66 60 7d 88 c0 c7 c8 | 8f 2a 82 25 00 60 43 1e |\f`}....|.*.%.`C.|
|000048a0| 09 c0 1e 5c 6e c0 1e 0b | c0 1e 5c 66 c0 1e 0d c0 |...\n...|..\f....|
|000048b0| 1e 0e c0 1e 0f c0 1e 10 | c0 1e 11 c0 1e 12 c0 1e |........|........|
|000048c0| 13 c0 1e 14 c0 1e 15 c0 | 1e 16 d7 1e 18 8a d9 c5 |........|........|
|000048d0| 21 88 29 8a 60 1e 1a db | 0e 1c 8a c0 7f 88 60 29 |!.).`...|......`)|
|000048e0| dd 23 83 9a 00 8a d7 94 | 62 88 de c0 78 88 6e 29 |.#......|b...x.n)|
|000048f0| 84 9a 00 df 0e 1a 60 c0 | 89 0e 0e 25 1e 20 e1 0e |......`.|...%. ..|
|00004900| 20 38 3f 85 90 00 e2 0e | 20 38 3f 29 83 9a 00 e3 | 8?.....| 8?)....|
|00004910| 20 88 d7 79 88 2a 8a c0 | 16 5c 66 6d 3f 85 63 03 | ..y.*..|.\fm?.c.|
|00004920| 0b 83 ae 00 60 0b 57 82 | b1 00 0e 5c 66 3f 85 63 |....`.W.|...\f?.c|
|00004930| 03 0e 18 16 15 c0 16 0d | 0e 0d 84 2c 01 6d 83 cb |........|...,.m..|
|00004940| 00 dd 89 16 5c 66 84 2c | 01 0e 0e 16 0f df 60 c0 |....\f.,|......`.|
|00004950| 7f 88 60 c0 89 0e 0e 25 | 89 16 0e 40 16 18 0e 0e |..`....%|...@....|
|00004960| 41 41 40 83 f9 00 0e 0e | 41 41 40 d7 59 83 f9 00 |AA@.....|AA@.Y...|
|00004970| 0e 0e 41 41 40 16 11 e4 | 0e 0f 38 84 07 01 e5 0e |..AA@...|..8.....|
|00004980| 0f 38 83 5c 6e 01 e6 20 | 88 e1 0e 0e 38 84 1f 01 |.8.\n.. |....8...|
|00004990| e4 0e 0e 38 84 1f 01 e5 | 0e 0e 38 83 25 01 c5 79 |...8....|..8.%..y|
|000049a0| 88 82 bb 00 dd 89 16 0d | 83 c0 00 0b 83 5d 01 0e |........|.....]..|
|000049b0| 18 d7 57 83 5d 01 e7 09 | c0 43 5c 22 11 e7 0e 09 |..W.]...|.C\"....|
|000049c0| c0 43 5c 22 16 09 0e 18 | 54 16 18 0e 15 54 16 15 |.C\"....|T....T..|
|000049d0| e8 0e 0e 9b e8 0e 0e 38 | 54 a0 88 82 30 01 0b 3f |.......8|T...0..?|
|000049e0| 85 66 01 0e 18 d7 58 89 | 16 5c 66 84 9f 00 0e 15 |.f....X.|.\f.....|
|000049f0| e8 0e 0e 38 56 83 87 01 | 09 41 11 0e 09 41 16 09 |...8V...|.A...A..|
|00004a00| 0e 15 53 89 16 15 82 6e | 01 0e 15 0e 18 55 84 92 |..S....n|.....U..|
|00004a10| 01 c0 16 11 0e 15 0e 18 | 57 83 ad 01 c0 09 42 11 |........|W.....B.|
|00004a20| c0 0e 09 42 16 09 0e 15 | 54 89 16 15 82 94 01 0e |...B....|T.......|
|00004a30| 09 40 84 c5 01 0e 09 0e | 0e 41 40 86 c3 01 8a d9 |.@......|.A@.....|
|00004a40| e9 21 88 60 29 a0 88 c5 | 79 88 de c0 77 88 6c 84 |.!.`)...|y...w.l.|
|00004a50| 9f 00 0b 83 da 01 60 0b | 59 84 9f 00 09 40 83 e6 |......`.|Y....@..|
|00004a60| 01 09 40 d7 59 84 21 02 | c0 1e 2a 0e 09 40 66 eb |..@.Y.!.|..*..@f.|
|00004a70| 55 83 00 02 8a 0e 09 40 | 62 88 ec 20 16 2a 29 82 |U......@|b.. .*).|
|00004a80| 10 02 ed 09 40 83 5c 66 | 02 09 40 5b 82 0d 02 5c |....@.\f|..@[...\|
|00004a90| 6e 21 16 2a 0e 2a dd 3d | 83 1b 02 ee 20 16 2a 09 |n!.*.*.=|.... .*.|
|00004aa0| 0e 2a a0 88 29 0e 09 40 | 66 eb 55 84 31 02 09 40 |.*..)..@|f.U.1..@|
|00004ab0| 16 10 82 bc 02 8a 60 16 | 16 ef f0 21 85 3f 02 ef |......`.|...!.?..|
|00004ac0| f1 21 3f 16 12 67 eb 55 | 16 13 ef f2 21 85 50 02 |.!?..g.U|....!.P.|
|00004ad0| ef f3 21 3f 16 14 67 f4 | 55 83 5f 02 09 40 16 10 |..!?..g.|U._..@..|
|00004ae0| 82 bb 02 f5 5c 6e 21 88 | 68 f6 3e 84 84 02 f7 0e |....\n!.|h.>.....|
|00004af0| 09 40 21 88 0e 38 69 5c | 5c 0e 13 83 7d 02 0e 39 |.@!..8i\|\...}..9|
|00004b00| 82 7e 02 d7 5c 5c 16 10 | 82 bb 02 0e 12 83 94 02 |.~..\\..|........|
|00004b10| fa 5c 6e 21 88 fb 20 16 | 10 82 bb 02 0e 14 83 a6 |.\n!.. .|........|
|00004b20| 02 fc 5c 6e 21 83 a6 02 | fb 20 16 10 82 bb 02 68 |..\n!...|. .....h|
|00004b30| fd 3d 83 b7 02 0e 16 62 | 88 ed 20 16 10 82 bb 02 |.=.....b|.. .....|
|00004b40| 09 40 16 10 29 ef 0e 3e | 21 84 d7 02 ef ff 21 83 |.@..)..>|!.....!.|
|00004b50| e0 02 8a d9 c5 21 88 ef | 81 40 00 21 29 83 e0 02 |.....!..|.@.!)...|
|00004b60| c5 0e 10 0e 41 5c 5c 5d | 16 10 67 f4 55 83 ed 02 |....A\\]|..g.U...|
|00004b70| 0e 10 0e 42 5a 16 10 67 | eb 55 83 06 03 69 d7 55 |...BZ..g|.U...i.U|
|00004b80| 83 ff 02 d7 16 10 82 06 | 03 0e 10 0e 43 5c 5c 16 |........|....C\\.|
|00004b90| 10 6c 83 0d 03 d7 16 10 | 69 0e 10 55 84 27 03 67 |.l......|i..U.'.g|
|00004ba0| 81 44 00 55 84 27 03 60 | d7 79 88 60 7c 88 0e 10 |.D.U.'.`|.y.`|...|
|00004bb0| 6a 88 ef 0e 1c 21 84 9f | 00 8a 60 1e 1a db 0e 1c |j....!..|..`.....|
|00004bc0| 8a c0 7f 88 60 29 dd 23 | 83 5f 03 df 0e 1a 60 c0 |....`).#|._....`.|
|00004bd0| 89 0e 0e 25 1e 20 e1 0e | 20 38 3f 85 58 03 e2 0e |...%. ..| 8?.X...|
|00004be0| 20 38 3f 29 83 5f 03 e3 | 20 88 2a 82 9f 00 2e 12 | 8?)._..| .*.....|
|00004bf0| 87 22 20 5b 6e 69 6c 20 | 69 6e 64 65 6e 74 2d 73 |." [nil |indent-s|
|00004c00| 74 61 63 6b 20 6f 70 6f | 69 6e 74 20 65 6e 64 70 |tack opo|int endp|
|00004c10| 6f 73 20 66 75 6e 62 65 | 67 20 31 20 62 65 67 69 |os funbe|g 1 begi|
|00004c20| 6e 6e 69 6e 67 2d 6f 66 | 2d 64 65 66 75 6e 20 28 |nning-of|-defun (|
|00004c30| 62 79 74 65 2d 63 6f 64 | 65 20 22 8a c0 c1 21 88 |byte-cod|e "...!.|
|00004c40| 60 29 87 22 20 5b 62 61 | 63 6b 77 61 72 64 2d 75 |`)." [ba|ckward-u|
|00004c50| 70 2d 6c 69 73 74 20 31 | 5d 20 32 29 20 28 28 65 |p-list 1|] 2) ((e|
|00004c60| 72 72 6f 72 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |rror (by|te-code |
|00004c70| 22 08 11 60 87 22 20 5b | 66 75 6e 62 65 67 20 6f |"..`." [|funbeg o|
|00004c80| 70 6f 69 6e 74 5d 20 31 | 29 29 29 20 63 6f 6e 74 |point] 1|))) cont|
|00004c90| 61 69 6e 2d 73 74 61 63 | 6b 20 63 61 73 65 2d 66 |ain-stac|k case-f|
|00004ca0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 72 65 73 74 61 |old-sear|ch resta|
|00004cb0| 72 74 20 6f 75 74 65 72 | 2d 6c 6f 6f 70 2d 64 6f |rt outer|-loop-do|
|00004cc0| 6e 65 20 69 6e 6e 65 72 | 2d 6c 6f 6f 70 2d 64 6f |ne inner|-loop-do|
|00004cd0| 6e 65 20 73 74 61 74 65 | 20 6f 73 74 61 74 65 20 |ne state| ostate |
|00004ce0| 74 68 69 73 2d 69 6e 64 | 65 6e 74 20 6c 61 73 74 |this-ind|ent last|
|00004cf0| 2d 73 65 78 70 20 61 74 | 2d 65 6c 73 65 20 61 74 |-sexp at|-else at|
|00004d00| 2d 62 72 61 63 65 20 61 | 74 2d 77 68 69 6c 65 20 |-brace a|t-while |
|00004d10| 6c 61 73 74 2d 64 65 70 | 74 68 20 74 68 69 73 2d |last-dep|th this-|
|00004d20| 70 6f 69 6e 74 20 30 20 | 6e 65 78 74 2d 64 65 70 |point 0 |next-dep|
|00004d30| 74 68 20 66 6f 72 77 61 | 72 64 2d 73 65 78 70 20 |th forwa|rd-sexp |
|00004d40| 62 65 67 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |beg re-s|earch-fo|
|00004d50| 72 77 61 72 64 20 63 6f | 6d 6d 65 6e 74 2d 73 74 |rward co|mment-st|
|00004d60| 61 72 74 2d 73 6b 69 70 | 20 74 20 22 20 09 22 20 |art-skip| t " ." |
|00004d70| 70 61 72 73 65 2d 70 61 | 72 74 69 61 6c 2d 73 65 |parse-pa|rtial-se|
|00004d80| 78 70 20 6e 65 77 2d 73 | 74 61 74 65 20 33 20 35 |xp new-s|tate 3 5|
|00004d90| 20 69 6e 64 65 6e 74 2d | 66 6f 72 2d 63 6f 6d 6d | indent-|for-comm|
|00004da0| 65 6e 74 20 34 20 37 20 | 63 2d 69 6e 64 65 6e 74 |ent 4 7 |c-indent|
|00004db0| 2d 6c 69 6e 65 20 61 70 | 70 65 6e 64 20 36 20 2d |-line ap|pend 6 -|
|00004dc0| 31 20 76 61 6c 20 31 32 | 33 20 63 61 6c 63 75 6c |1 val 12|3 calcul|
|00004dd0| 61 74 65 2d 63 2d 69 6e | 64 65 6e 74 2d 61 66 74 |ate-c-in|dent-aft|
|00004de0| 65 72 2d 62 72 61 63 65 | 20 63 61 6c 63 75 6c 61 |er-brace| calcula|
|00004df0| 74 65 2d 63 2d 69 6e 64 | 65 6e 74 20 63 61 6c 63 |te-c-ind|ent calc|
|00004e00| 75 6c 61 74 65 2d 63 2d | 69 6e 64 65 6e 74 2d 77 |ulate-c-|indent-w|
|00004e10| 69 74 68 69 6e 2d 63 6f | 6d 6d 65 6e 74 20 6c 6f |ithin-co|mment lo|
|00004e20| 6f 6b 69 6e 67 2d 61 74 | 20 22 65 6c 73 65 5c 5c |oking-at| "else\\|
|00004e30| 62 22 20 22 65 6c 73 65 | 5c 5c 73 5f 22 20 22 77 |b" "else|\\s_" "w|
|00004e40| 68 69 6c 65 5c 5c 62 22 | 20 22 77 68 69 6c 65 5c |hile\\b"| "while\|
|00004e50| 5c 73 5f 22 20 31 32 35 | 20 63 2d 62 61 63 6b 77 |\s_" 125| c-backw|
|00004e60| 61 72 64 2d 74 6f 2d 6e | 6f 6e 63 6f 6d 6d 65 6e |ard-to-n|oncommen|
|00004e70| 74 20 28 30 20 34 34 20 | 35 39 20 31 32 35 20 35 |t (0 44 |59 125 5|
|00004e80| 38 20 31 32 33 29 20 63 | 2d 62 61 63 6b 77 61 72 |8 123) c|-backwar|
|00004e90| 64 2d 74 6f 2d 73 74 61 | 72 74 2d 6f 66 2d 63 6f |d-to-sta|rt-of-co|
|00004ea0| 6e 74 69 6e 75 65 64 2d | 65 78 70 20 63 2d 63 6f |ntinued-|exp c-co|
|00004eb0| 6e 74 69 6e 75 65 64 2d | 73 74 61 74 65 6d 65 6e |ntinued-|statemen|
|00004ec0| 74 2d 6f 66 66 73 65 74 | 20 63 2d 63 6f 6e 74 69 |t-offset| c-conti|
|00004ed0| 6e 75 65 64 2d 62 72 61 | 63 65 2d 6f 66 66 73 65 |nued-bra|ce-offse|
|00004ee0| 74 20 63 2d 62 61 63 6b | 77 61 72 64 2d 74 6f 2d |t c-back|ward-to-|
|00004ef0| 73 74 61 72 74 2d 6f 66 | 2d 69 66 20 63 75 72 72 |start-of|-if curr|
|00004f00| 65 6e 74 2d 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |ent-inde|ntation |
|00004f10| 63 2d 62 61 63 6b 77 61 | 72 64 2d 74 6f 2d 73 74 |c-backwa|rd-to-st|
|00004f20| 61 72 74 2d 6f 66 2d 64 | 6f 20 34 34 20 63 2d 73 |art-of-d|o 44 c-s|
|00004f30| 77 69 74 63 68 2d 6c 61 | 62 65 6c 2d 72 65 67 65 |witch-la|bel-rege|
|00004f40| 78 70 20 22 5b 41 2d 5a | 61 2d 7a 5d 22 20 22 3a |xp "[A-Z|a-z]" ":|
|00004f50| 22 20 63 2d 6c 61 62 65 | 6c 2d 6f 66 66 73 65 74 |" c-labe|l-offset|
|00004f60| 20 63 2d 69 6e 64 65 6e | 74 2d 6c 65 76 65 6c 20 | c-inden|t-level |
|00004f70| 63 2d 62 72 61 63 65 2d | 6f 66 66 73 65 74 20 33 |c-brace-|offset 3|
|00004f80| 35 5d 20 37 20 28 23 24 | 20 2e 20 31 38 34 35 32 |5] 7 (#$| . 18452|
|00004f90| 29 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |) nil]).|(defalia|
|00004fa0| 73 20 27 69 6e 64 65 6e | 74 2d 63 2d 66 69 6e 64 |s 'inden|t-c-find|
|00004fb0| 2d 72 65 61 6c 2d 63 6f | 6d 6d 65 6e 74 20 23 5b |-real-co|mment #[|
|00004fc0| 6e 69 6c 20 22 c0 19 09 | 84 34 00 c2 0b 8a c0 7f |nil "...|.4......|
|00004fd0| 88 60 29 c4 23 83 34 00 | c5 8a c6 79 88 60 29 60 |.`).#.4.|...y.`)`|
|00004fe0| c0 89 0e 07 25 1e 08 c9 | 0e 08 38 3f 85 2f 00 ca |....%...|..8?./..|
|00004ff0| 0e 08 38 3f 11 29 82 02 | 00 09 29 87 22 20 5b 6e |..8?.)..|..)." [n|
|00005000| 69 6c 20 77 69 6e 20 72 | 65 2d 73 65 61 72 63 68 |il win r|e-search|
|00005010| 2d 66 6f 72 77 61 72 64 | 20 63 6f 6d 6d 65 6e 74 |-forward| comment|
|00005020| 2d 73 74 61 72 74 2d 73 | 6b 69 70 20 74 20 70 61 |-start-s|kip t pa|
|00005030| 72 73 65 2d 70 61 72 74 | 69 61 6c 2d 73 65 78 70 |rse-part|ial-sexp|
|00005040| 20 30 20 73 74 61 74 65 | 20 73 74 61 74 65 2d 31 | 0 state| state-1|
|00005050| 20 33 20 35 5d 20 36 5d | 29 0a 28 64 65 66 61 6c | 3 5] 6]|).(defal|
|00005060| 69 61 73 20 27 63 2d 69 | 6e 64 65 6e 74 2d 72 65 |ias 'c-i|ndent-re|
|00005070| 67 69 6f 6e 20 23 5b 28 | 73 74 61 72 74 20 65 6e |gion #[(|start en|
|00005080| 64 29 20 22 8a 08 62 88 | c1 c2 77 88 c3 79 88 c4 |d) "..b.|..w..y..|
|00005090| 0d 21 c6 1e 07 1e 08 6e | 83 a6 00 6d 84 a6 00 60 |.!.....n|...m...`|
|000050a0| 0e 08 57 83 a6 00 c9 20 | c2 89 89 1e 5c 6e 1e 0b |..W.... |....\n..|
|000050b0| 1e 5c 66 1e 0d 8a c3 79 | 88 ce cf 21 29 83 40 00 |.\f....y|...!).@.|
|000050c0| d0 79 88 82 a2 00 8a 8a | d0 79 88 60 16 5c 66 29 |.y......|.y.`.\f)|
|000050d0| c3 79 88 60 0e 5c 66 57 | 83 5f 00 c2 d1 d2 8f 88 |.y.`.\fW|._......|
|000050e0| c1 c2 77 88 82 4c 00 0e | 5c 6e 83 6f 00 0e 5c 6e |..w..L..|\n.o..\n|
|000050f0| 62 88 d3 d0 21 88 60 16 | 0b 29 0e 5c 6e 83 94 00 |b...!.`.|.).\n...|
|00005100| 0e 5c 6e 0e 5c 66 56 83 | 94 00 0e 5c 6e 0e 08 58 |.\n.\fV.|...\n..X|
|00005110| 83 94 00 0e 0b 0e 5c 66 | 57 83 94 00 d4 20 88 0e |......\f|W.... ..|
|00005120| 5c 6e 62 88 0e 5c 6e 83 | 9f 00 0e 5c 6e c2 89 93 |\nb..\n.|...\n...|
|00005130| 88 d0 79 88 2c 82 13 00 | 0e 08 c2 89 93 2b 87 22 |..y.,...|.....+."|
|00005140| 20 5b 73 74 61 72 74 20 | 22 20 09 5c 6e 22 20 6e | [start |" .\n" n|
|00005150| 69 6c 20 30 20 63 6f 70 | 79 2d 6d 61 72 6b 65 72 |il 0 cop|y-marker|
|00005160| 20 65 6e 64 20 74 20 63 | 2d 74 61 62 2d 61 6c 77 | end t c|-tab-alw|
|00005170| 61 79 73 2d 69 6e 64 65 | 6e 74 20 65 6e 64 6d 61 |ays-inde|nt endma|
|00005180| 72 6b 20 63 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |rk c-ind|ent-line|
|00005190| 20 73 65 78 70 65 6e 64 | 20 73 65 78 70 62 65 67 | sexpend| sexpbeg|
|000051a0| 20 6e 65 78 74 6c 69 6e | 65 20 73 68 69 66 74 2d | nextlin|e shift-|
|000051b0| 61 6d 74 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |amt look|ing-at "|
|000051c0| 5b 20 09 5d 2a 23 22 20 | 31 20 28 62 79 74 65 2d |[ .]*#" |1 (byte-|
|000051d0| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 20 13 c0 87 22 |code "..|!.. ..."|
|000051e0| 20 5b 66 6f 72 77 61 72 | 64 2d 73 65 78 70 20 31 | [forwar|d-sexp 1|
|000051f0| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 73 65 | point-m|arker se|
|00005200| 78 70 65 6e 64 5d 20 32 | 29 20 28 28 65 72 72 6f |xpend] 2|) ((erro|
|00005210| 72 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 11 |r (byte-|code "..|
|00005220| 5c 6e 62 87 22 20 5b 6e | 69 6c 20 73 65 78 70 65 |\nb." [n|il sexpe|
|00005230| 6e 64 20 6e 65 78 74 6c | 69 6e 65 5d 20 31 29 29 |nd nextl|ine] 1))|
|00005240| 29 20 62 61 63 6b 77 61 | 72 64 2d 73 65 78 70 20 |) backwa|rd-sexp |
|00005250| 69 6e 64 65 6e 74 2d 63 | 2d 65 78 70 5d 20 34 5d |indent-c|-exp] 4]|
|00005260| 29 0a 23 40 33 30 34 20 | 53 65 74 20 43 2d 6d 6f |).#@304 |Set C-mo|
|00005270| 64 65 20 76 61 72 69 61 | 62 6c 65 73 20 74 6f 20 |de varia|bles to |
|00005280| 75 73 65 20 6f 6e 65 20 | 6f 66 20 73 65 76 65 72 |use one |of sever|
|00005290| 61 6c 20 64 69 66 66 65 | 72 65 6e 74 20 69 6e 64 |al diffe|rent ind|
|000052a0| 65 6e 74 61 74 69 6f 6e | 20 73 74 79 6c 65 73 2e |entation| styles.|
|000052b0| 0a 54 68 65 20 61 72 67 | 75 6d 65 6e 74 73 20 61 |.The arg|uments a|
|000052c0| 72 65 20 61 20 73 74 72 | 69 6e 67 20 72 65 70 72 |re a str|ing repr|
|000052d0| 65 73 65 6e 74 69 6e 67 | 20 74 68 65 20 64 65 73 |esenting| the des|
|000052e0| 69 72 65 64 20 73 74 79 | 6c 65 0a 61 6e 64 20 61 |ired sty|le.and a|
|000052f0| 20 66 6c 61 67 20 77 68 | 69 63 68 2c 20 69 66 20 | flag wh|ich, if |
|00005300| 6e 6f 6e 2d 6e 69 6c 2c | 20 6d 65 61 6e 73 20 74 |non-nil,| means t|
|00005310| 6f 20 73 65 74 20 74 68 | 65 20 73 74 79 6c 65 20 |o set th|e style |
|00005320| 67 6c 6f 62 61 6c 6c 79 | 2e 0a 28 49 6e 74 65 72 |globally|..(Inter|
|00005330| 61 63 74 69 76 65 6c 79 | 2c 20 74 68 65 20 66 6c |actively|, the fl|
|00005340| 61 67 20 63 6f 6d 65 73 | 20 66 72 6f 6d 20 74 68 |ag comes| from th|
|00005350| 65 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |e prefix| argumen|
|00005360| 74 2e 29 0a 41 76 61 69 | 6c 61 62 6c 65 20 73 74 |t.).Avai|lable st|
|00005370| 79 6c 65 73 20 61 72 65 | 20 47 4e 55 2c 20 4b 26 |yles are| GNU, K&|
|00005380| 52 2c 20 42 53 44 20 61 | 6e 64 20 57 68 69 74 65 |R, BSD a|nd White|
|00005390| 73 6d 69 74 68 2e 1f 0a | 28 64 65 66 61 6c 69 61 |smith...|(defalia|
|000053a0| 73 20 27 73 65 74 2d 63 | 2d 73 74 79 6c 65 20 23 |s 'set-c|-style #|
|000053b0| 5b 28 73 74 79 6c 65 20 | 26 6f 70 74 69 6f 6e 61 |[(style |&optiona|
|000053c0| 6c 20 67 6c 6f 62 61 6c | 29 20 22 c0 09 5c 6e 5c |l global|) "..\n\|
|000053d0| 22 41 89 1b 84 0f 00 c4 | c5 09 5c 22 88 0b 85 2e |"A......|..\"....|
|000053e0| 00 0e 06 84 1e 00 c7 0b | 40 40 21 88 0b 40 40 0b |........|@@!..@@.|
|000053f0| 40 41 4c 88 0b 41 89 13 | 84 13 00 c8 29 87 22 20 |@AL..A..|....)." |
|00005400| 5b 61 73 73 6f 63 20 73 | 74 79 6c 65 20 63 2d 73 |[assoc s|tyle c-s|
|00005410| 74 79 6c 65 2d 61 6c 69 | 73 74 20 76 61 72 73 20 |tyle-ali|st vars |
|00005420| 65 72 72 6f 72 20 22 49 | 6e 76 61 6c 69 64 20 43 |error "I|nvalid C|
|00005430| 20 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 73 74 79 | indenta|tion sty|
|00005440| 6c 65 20 60 25 73 27 22 | 20 67 6c 6f 62 61 6c 20 |le `%s'"| global |
|00005450| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|00005460| 62 6c 65 20 6e 69 6c 5d | 20 34 20 28 23 24 20 2e |ble nil]| 4 (#$ .|
|00005470| 20 32 31 30 39 36 29 20 | 28 6c 69 73 74 20 28 6c | 21096) |(list (l|
|00005480| 65 74 20 28 28 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |et ((com|pletion-|
|00005490| 69 67 6e 6f 72 65 2d 63 | 61 73 65 20 74 29 29 20 |ignore-c|ase t)) |
|000054a0| 28 63 6f 6d 70 6c 65 74 | 69 6e 67 2d 72 65 61 64 |(complet|ing-read|
|000054b0| 20 22 55 73 65 20 77 68 | 69 63 68 20 43 20 69 6e | "Use wh|ich C in|
|000054c0| 64 65 6e 74 61 74 69 6f | 6e 20 73 74 79 6c 65 3f |dentatio|n style?|
|000054d0| 20 22 20 63 2d 73 74 79 | 6c 65 2d 61 6c 69 73 74 | " c-sty|le-alist|
|000054e0| 20 6e 69 6c 20 74 29 29 | 20 63 75 72 72 65 6e 74 | nil t))| current|
|000054f0| 2d 70 72 65 66 69 78 2d | 61 72 67 29 5d 29 0a 23 |-prefix-|arg)]).#|
|00005500| 40 36 37 20 2a 4d 69 6e | 69 6d 75 6d 20 63 6f 6c |@67 *Min|imum col|
|00005510| 75 6d 6e 20 66 6f 72 20 | 65 6e 64 2d 6f 66 2d 6c |umn for |end-of-l|
|00005520| 69 6e 65 20 62 61 63 6b | 73 6c 61 73 68 65 73 20 |ine back|slashes |
|00005530| 6f 66 20 6d 61 63 72 6f | 20 64 65 66 69 6e 69 74 |of macro| definit|
|00005540| 69 6f 6e 73 2e 1f 0a 28 | 64 65 66 76 61 72 20 63 |ions...(|defvar c|
|00005550| 2d 62 61 63 6b 73 6c 61 | 73 68 2d 63 6f 6c 75 6d |-backsla|sh-colum|
|00005560| 6e 20 34 38 20 28 23 24 | 20 2e 20 2d 32 31 37 36 |n 48 (#$| . -2176|
|00005570| 34 29 29 0a 23 40 34 36 | 37 20 49 6e 73 65 72 74 |4)).#@46|7 Insert|
|00005580| 2c 20 61 6c 69 67 6e 2c | 20 6f 72 20 64 65 6c 65 |, align,| or dele|
|00005590| 74 65 20 65 6e 64 2d 6f | 66 2d 6c 69 6e 65 20 62 |te end-o|f-line b|
|000055a0| 61 63 6b 73 6c 61 73 68 | 65 73 20 6f 6e 20 74 68 |ackslash|es on th|
|000055b0| 65 20 6c 69 6e 65 73 20 | 69 6e 20 74 68 65 20 72 |e lines |in the r|
|000055c0| 65 67 69 6f 6e 2e 0a 57 | 69 74 68 20 6e 6f 20 61 |egion..W|ith no a|
|000055d0| 72 67 75 6d 65 6e 74 2c | 20 69 6e 73 65 72 74 73 |rgument,| inserts|
|000055e0| 20 62 61 63 6b 73 6c 61 | 73 68 65 73 20 61 6e 64 | backsla|shes and|
|000055f0| 20 61 6c 69 67 6e 73 20 | 65 78 69 73 74 69 6e 67 | aligns |existing|
|00005600| 20 62 61 63 6b 73 6c 61 | 73 68 65 73 2e 0a 57 69 | backsla|shes..Wi|
|00005610| 74 68 20 61 6e 20 61 72 | 67 75 6d 65 6e 74 2c 20 |th an ar|gument, |
|00005620| 64 65 6c 65 74 65 73 20 | 74 68 65 20 62 61 63 6b |deletes |the back|
|00005630| 73 6c 61 73 68 65 73 2e | 0a 0a 54 68 69 73 20 66 |slashes.|..This f|
|00005640| 75 6e 63 74 69 6f 6e 20 | 64 6f 65 73 20 6e 6f 74 |unction |does not|
|00005650| 20 6d 6f 64 69 66 79 20 | 74 68 65 20 6c 61 73 74 | modify |the last|
|00005660| 20 6c 69 6e 65 20 6f 66 | 20 74 68 65 20 72 65 67 | line of| the reg|
|00005670| 69 6f 6e 20 69 66 20 74 | 68 65 20 72 65 67 69 6f |ion if t|he regio|
|00005680| 6e 20 65 6e 64 73 0a 72 | 69 67 68 74 20 61 74 20 |n ends.r|ight at |
|00005690| 74 68 65 20 73 74 61 72 | 74 20 6f 66 20 74 68 65 |the star|t of the|
|000056a0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6c 69 6e 65 3b | followi|ng line;|
|000056b0| 20 69 74 20 64 6f 65 73 | 20 6e 6f 74 20 6d 6f 64 | it does| not mod|
|000056c0| 69 66 79 20 62 6c 61 6e | 6b 20 6c 69 6e 65 73 0a |ify blan|k lines.|
|000056d0| 61 74 20 74 68 65 20 73 | 74 61 72 74 20 6f 66 20 |at the s|tart of |
|000056e0| 74 68 65 20 72 65 67 69 | 6f 6e 2e 20 20 53 6f 20 |the regi|on.  So |
|000056f0| 79 6f 75 20 63 61 6e 20 | 70 75 74 20 74 68 65 20 |you can |put the |
|00005700| 72 65 67 69 6f 6e 20 61 | 72 6f 75 6e 64 20 61 6e |region a|round an|
|00005710| 20 65 6e 74 69 72 65 20 | 6d 61 63 72 6f 0a 64 65 | entire |macro.de|
|00005720| 66 69 6e 69 74 69 6f 6e | 20 61 6e 64 20 63 6f 6e |finition| and con|
|00005730| 76 65 6e 69 65 6e 74 6c | 79 20 75 73 65 20 74 68 |venientl|y use th|
|00005740| 69 73 20 63 6f 6d 6d 61 | 6e 64 2e 1f 0a 28 64 65 |is comma|nd...(de|
|00005750| 66 61 6c 69 61 73 20 27 | 63 2d 62 61 63 6b 73 6c |falias '|c-backsl|
|00005760| 61 73 68 2d 72 65 67 69 | 6f 6e 20 23 5b 28 66 72 |ash-regi|on #[(fr|
|00005770| 6f 6d 20 74 6f 20 64 65 | 6c 65 74 65 2d 66 6c 61 |om to de|lete-fla|
|00005780| 67 29 20 22 8a 08 62 88 | 09 c2 20 1b 1c 0b 0d c6 |g) "..b.|.. .....|
|00005790| 93 88 0e 07 84 34 00 60 | 0d 57 83 34 00 c6 7f 88 |.....4.`|.W.4....|
|000057a0| 68 c8 55 83 29 00 c9 75 | 88 ca c6 78 88 5c 66 69 |h.U.)..u|...x.\fi|
|000057b0| 54 5d 14 cb 79 88 82 13 | 00 5c 66 0e 5c 66 a6 cd |T]..y...|.\f.\f..|
|000057c0| 56 83 56 00 5c 66 0e 5c | 66 5c 5c c9 5c 5c 0e 5c |V.V.\f.\|f\\.\\.\|
|000057d0| 66 a5 0e 5c 66 5f 89 1e | 0e cf 20 57 83 55 00 0e |f..\f_..|.. W.U..|
|000057e0| 0e 14 29 08 62 88 60 0b | 57 83 69 00 6c 83 69 00 |..).b.`.|W.i.l.i.|
|000057f0| cb 79 88 82 59 00 60 0b | 57 83 8f 00 8a cb 79 88 |.y..Y.`.|W.....y.|
|00005800| 60 0b 57 29 83 8f 00 0e | 07 84 86 00 d0 5c 66 21 |`.W)....|.....\f!|
|00005810| 88 82 89 00 d1 20 88 cb | 79 88 82 69 00 0b c6 89 |..... ..|y..i....|
|00005820| 93 2b 87 22 20 5b 66 72 | 6f 6d 20 63 2d 62 61 63 |.+." [fr|om c-bac|
|00005830| 6b 73 6c 61 73 68 2d 63 | 6f 6c 75 6d 6e 20 6d 61 |kslash-c|olumn ma|
|00005840| 6b 65 2d 6d 61 72 6b 65 | 72 20 65 6e 64 6d 61 72 |ke-marke|r endmar|
|00005850| 6b 20 63 6f 6c 75 6d 6e | 20 74 6f 20 6e 69 6c 20 |k column| to nil |
|00005860| 64 65 6c 65 74 65 2d 66 | 6c 61 67 20 39 32 20 2d |delete-f|lag 92 -|
|00005870| 31 20 22 20 09 22 20 31 | 20 74 61 62 2d 77 69 64 |1 " ." 1| tab-wid|
|00005880| 74 68 20 30 20 61 64 6a | 75 73 74 65 64 20 77 69 |th 0 adj|usted wi|
|00005890| 6e 64 6f 77 2d 77 69 64 | 74 68 20 63 2d 61 70 70 |ndow-wid|th c-app|
|000058a0| 65 6e 64 2d 62 61 63 6b | 73 6c 61 73 68 20 63 2d |end-back|slash c-|
|000058b0| 64 65 6c 65 74 65 2d 62 | 61 63 6b 73 6c 61 73 68 |delete-b|ackslash|
|000058c0| 5d 20 34 20 28 23 24 20 | 2e 20 32 31 38 38 32 29 |] 4 (#$ |. 21882)|
|000058d0| 20 22 72 5c 6e 50 22 5d | 29 0a 28 64 65 66 61 6c | "r\nP"]|).(defal|
|000058e0| 69 61 73 20 27 63 2d 61 | 70 70 65 6e 64 2d 62 61 |ias 'c-a|ppend-ba|
|000058f0| 63 6b 73 6c 61 73 68 20 | 23 5b 28 63 6f 6c 75 6d |ckslash |#[(colum|
|00005900| 6e 29 20 22 c0 7f 88 68 | c1 55 83 12 00 c2 75 88 |n) "...h|.U....u.|
|00005910| c3 20 88 5c 66 6a 87 5c | 66 6a 88 c5 63 87 22 20 |. .\fj.\|fj..c." |
|00005920| 5b 6e 69 6c 20 39 32 20 | 2d 31 20 64 65 6c 65 74 |[nil 92 |-1 delet|
|00005930| 65 2d 68 6f 72 69 7a 6f | 6e 74 61 6c 2d 73 70 61 |e-horizo|ntal-spa|
|00005940| 63 65 20 63 6f 6c 75 6d | 6e 20 22 5c 5c 22 5d 20 |ce colum|n "\\"] |
|00005950| 32 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |2]).(def|alias 'c|
|00005960| 2d 64 65 6c 65 74 65 2d | 62 61 63 6b 73 6c 61 73 |-delete-|backslas|
|00005970| 68 20 23 5b 6e 69 6c 20 | 22 c0 7f 88 6e 86 18 00 |h #[nil |"...n...|
|00005980| c1 75 88 c2 c3 21 85 18 | 00 60 54 c4 c0 78 88 60 |.u...!..|.`T..x.`|
|00005990| 7c 87 22 20 5b 6e 69 6c | 20 2d 31 20 6c 6f 6f 6b ||." [nil| -1 look|
|000059a0| 69 6e 67 2d 61 74 20 22 | 5c 5c 5c 5c 22 20 22 20 |ing-at "|\\\\" " |
|000059b0| 09 22 5d 20 33 5d 29 0a | 23 40 33 32 37 20 4d 6f |."] 3]).|#@327 Mo|
|000059c0| 76 65 20 62 61 63 6b 20 | 74 6f 20 74 68 65 20 63 |ve back |to the c|
|000059d0| 6f 6e 74 61 69 6e 69 6e | 67 20 70 72 65 70 72 6f |ontainin|g prepro|
|000059e0| 63 65 73 73 6f 72 20 63 | 6f 6e 64 69 74 69 6f 6e |cessor c|ondition|
|000059f0| 61 6c 2c 20 6c 65 61 76 | 69 6e 67 20 6d 61 72 6b |al, leav|ing mark|
|00005a00| 20 62 65 68 69 6e 64 2e | 0a 41 20 70 72 65 66 69 | behind.|.A prefi|
|00005a10| 78 20 61 72 67 75 6d 65 | 6e 74 20 61 63 74 73 20 |x argume|nt acts |
|00005a20| 61 73 20 61 20 72 65 70 | 65 61 74 20 63 6f 75 6e |as a rep|eat coun|
|00005a30| 74 2e 20 20 57 69 74 68 | 20 61 20 6e 65 67 61 74 |t.  With| a negat|
|00005a40| 69 76 65 20 61 72 67 75 | 6d 65 6e 74 2c 0a 6d 6f |ive argu|ment,.mo|
|00005a50| 76 65 20 66 6f 72 77 61 | 72 64 20 74 6f 20 74 68 |ve forwa|rd to th|
|00005a60| 65 20 65 6e 64 20 6f 66 | 20 74 68 65 20 63 6f 6e |e end of| the con|
|00005a70| 74 61 69 6e 69 6e 67 20 | 70 72 65 70 72 6f 63 65 |taining |preproce|
|00005a80| 73 73 6f 72 20 63 6f 6e | 64 69 74 69 6f 6e 61 6c |ssor con|ditional|
|00005a90| 2e 0a 57 68 65 6e 20 67 | 6f 69 6e 67 20 62 61 63 |..When g|oing bac|
|00005aa0| 6b 77 61 72 64 73 2c 20 | 60 23 65 6c 69 66 27 20 |kwards, |`#elif' |
|00005ab0| 69 73 20 74 72 65 61 74 | 65 64 20 6c 69 6b 65 20 |is treat|ed like |
|00005ac0| 60 23 65 6c 73 65 27 20 | 66 6f 6c 6c 6f 77 65 64 |`#else' |followed|
|00005ad0| 20 62 79 20 60 23 69 66 | 27 2e 0a 57 68 65 6e 20 | by `#if|'..When |
|00005ae0| 67 6f 69 6e 67 20 66 6f | 72 77 61 72 64 73 2c 20 |going fo|rwards, |
|00005af0| 60 23 65 6c 69 66 27 20 | 69 73 20 69 67 6e 6f 72 |`#elif' |is ignor|
|00005b00| 65 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ed...(de|falias '|
|00005b10| 63 2d 75 70 2d 63 6f 6e | 64 69 74 69 6f 6e 61 6c |c-up-con|ditional|
|00005b20| 20 23 5b 28 63 6f 75 6e | 74 29 20 22 c0 09 5b c2 | #[(coun|t) "..[.|
|00005b30| 5c 22 87 22 20 5b 63 2d | 66 6f 72 77 61 72 64 2d |\"." [c-|forward-|
|00005b40| 63 6f 6e 64 69 74 69 6f | 6e 61 6c 20 63 6f 75 6e |conditio|nal coun|
|00005b50| 74 20 74 5d 20 33 20 28 | 23 24 20 2e 20 32 32 39 |t t] 3 (|#$ . 229|
|00005b60| 37 34 29 20 22 70 22 5d | 29 0a 23 40 31 38 34 20 |74) "p"]|).#@184 |
|00005b70| 4d 6f 76 65 20 62 61 63 | 6b 20 61 63 72 6f 73 73 |Move bac|k across|
|00005b80| 20 61 20 70 72 65 70 72 | 6f 63 65 73 73 6f 72 20 | a prepr|ocessor |
|00005b90| 63 6f 6e 64 69 74 69 6f | 6e 61 6c 2c 20 6c 65 61 |conditio|nal, lea|
|00005ba0| 76 69 6e 67 20 6d 61 72 | 6b 20 62 65 68 69 6e 64 |ving mar|k behind|
|00005bb0| 2e 0a 41 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |..A pref|ix argum|
|00005bc0| 65 6e 74 20 61 63 74 73 | 20 61 73 20 61 20 72 65 |ent acts| as a re|
|00005bd0| 70 65 61 74 20 63 6f 75 | 6e 74 2e 20 20 57 69 74 |peat cou|nt.  Wit|
|00005be0| 68 20 61 20 6e 65 67 61 | 74 69 76 65 20 61 72 67 |h a nega|tive arg|
|00005bf0| 75 6d 65 6e 74 2c 0a 6d | 6f 76 65 20 66 6f 72 77 |ument,.m|ove forw|
|00005c00| 61 72 64 20 61 63 72 6f | 73 73 20 61 20 70 72 65 |ard acro|ss a pre|
|00005c10| 70 72 6f 63 65 73 73 6f | 72 20 63 6f 6e 64 69 74 |processo|r condit|
|00005c20| 69 6f 6e 61 6c 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ional...|(defalia|
|00005c30| 73 20 27 63 2d 62 61 63 | 6b 77 61 72 64 2d 63 6f |s 'c-bac|kward-co|
|00005c40| 6e 64 69 74 69 6f 6e 61 | 6c 20 23 5b 28 63 6f 75 |nditiona|l #[(cou|
|00005c50| 6e 74 20 26 6f 70 74 69 | 6f 6e 61 6c 20 75 70 2d |nt &opti|onal up-|
|00005c60| 66 6c 61 67 29 20 22 c0 | 09 5b 5c 6e 5c 22 87 22 |flag) ".|.[\n\"."|
|00005c70| 20 5b 63 2d 66 6f 72 77 | 61 72 64 2d 63 6f 6e 64 | [c-forw|ard-cond|
|00005c80| 69 74 69 6f 6e 61 6c 20 | 63 6f 75 6e 74 20 75 70 |itional |count up|
|00005c90| 2d 66 6c 61 67 5d 20 33 | 20 28 23 24 20 2e 20 32 |-flag] 3| (#$ . 2|
|00005ca0| 33 34 30 38 29 20 22 70 | 22 5d 29 0a 23 40 31 38 |3408) "p|"]).#@18|
|00005cb0| 38 20 4d 6f 76 65 20 66 | 6f 72 77 61 72 64 20 61 |8 Move f|orward a|
|00005cc0| 63 72 6f 73 73 20 61 20 | 70 72 65 70 72 6f 63 65 |cross a |preproce|
|00005cd0| 73 73 6f 72 20 63 6f 6e | 64 69 74 69 6f 6e 61 6c |ssor con|ditional|
|00005ce0| 2c 20 6c 65 61 76 69 6e | 67 20 6d 61 72 6b 20 62 |, leavin|g mark b|
|00005cf0| 65 68 69 6e 64 2e 0a 41 | 20 70 72 65 66 69 78 20 |ehind..A| prefix |
|00005d00| 61 72 67 75 6d 65 6e 74 | 20 61 63 74 73 20 61 73 |argument| acts as|
|00005d10| 20 61 20 72 65 70 65 61 | 74 20 63 6f 75 6e 74 2e | a repea|t count.|
|00005d20| 20 20 57 69 74 68 20 61 | 20 6e 65 67 61 74 69 76 |  With a| negativ|
|00005d30| 65 20 61 72 67 75 6d 65 | 6e 74 2c 0a 6d 6f 76 65 |e argume|nt,.move|
|00005d40| 20 62 61 63 6b 77 61 72 | 64 20 61 63 72 6f 73 73 | backwar|d across|
|00005d50| 20 61 20 70 72 65 70 72 | 6f 63 65 73 73 6f 72 20 | a prepr|ocessor |
|00005d60| 63 6f 6e 64 69 74 69 6f | 6e 61 6c 2e 1f 0a 28 64 |conditio|nal...(d|
|00005d70| 65 66 61 6c 69 61 73 20 | 27 63 2d 66 6f 72 77 61 |efalias |'c-forwa|
|00005d80| 72 64 2d 63 6f 6e 64 69 | 74 69 6f 6e 61 6c 20 23 |rd-condi|tional #|
|00005d90| 5b 28 63 6f 75 6e 74 20 | 26 6f 70 74 69 6f 6e 61 |[(count |&optiona|
|00005da0| 6c 20 75 70 2d 66 6c 61 | 67 29 20 22 08 c1 56 89 |l up-fla|g) "..V.|
|00005db0| 1a 83 5c 66 00 c3 82 0d | 00 c4 1d 5c 6e 83 16 00 |..\f....|...\n...|
|00005dc0| c6 82 17 00 c7 1e 08 60 | 1e 09 ca 1e 0b 8a 08 c1 |.......`|........|
|00005dd0| 55 84 d4 00 0e 5c 66 83 | 2f 00 c1 82 30 00 c3 ca |U....\f.|/...0...|
|00005de0| 1e 0d 1e 0e 8a 0e 0d 84 | ba 00 0e 08 cf ca d0 23 |........|.......#|
|00005df0| 83 ba 00 c1 79 88 d1 d2 | 21 83 b0 00 0e 0e 1e 13 |....y...|!.......|
|00005e00| c1 79 88 d1 d4 21 83 63 | 00 0e 0e 0d 5c 5c 16 0e |.y...!.c|....\\..|
|00005e10| 82 80 00 d1 d5 21 83 7a | 00 5c 6e 83 80 00 0e 0e |.....!.z|.\n.....|
|00005e20| c1 55 83 80 00 60 16 0d | 82 80 00 0e 0e 0d 5a 16 |.U...`..|......Z.|
|00005e30| 0e 0e 13 c1 57 83 9b 00 | 0e 0e 0e 13 57 83 9b 00 |....W...|....W...|
|00005e40| d6 5c 6e 83 98 00 d7 82 | 99 00 d8 21 88 5c 6e 83 |.\n.....|...!.\n.|
|00005e50| a2 00 c4 79 88 0e 0e c1 | 57 83 ac 00 60 16 0d 29 |...y....|W...`..)|
|00005e60| 82 36 00 5c 6e 83 36 00 | ca 7f 88 82 36 00 29 0e |.6.\n.6.|....6.).|
|00005e70| 0d 84 c4 00 d6 d9 21 88 | 0e 0d 89 16 0b 62 88 2a |......!.|.....b.*|
|00005e80| 08 0d 5c 5c 89 10 82 21 | 00 29 da 20 88 0e 0b 62 |..\\...!|.). ...b|
|00005e90| 2d 87 22 20 5b 63 6f 75 | 6e 74 20 30 20 66 6f 72 |-." [cou|nt 0 for|
|00005ea0| 77 61 72 64 20 2d 31 20 | 31 20 69 6e 63 72 65 6d |ward -1 |1 increm|
|00005eb0| 65 6e 74 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |ent re-s|earch-fo|
|00005ec0| 72 77 61 72 64 20 72 65 | 2d 73 65 61 72 63 68 2d |rward re|-search-|
|00005ed0| 62 61 63 6b 77 61 72 64 | 20 73 65 61 72 63 68 2d |backward| search-|
|00005ee0| 66 75 6e 63 74 69 6f 6e | 20 6f 70 6f 69 6e 74 20 |function| opoint |
|00005ef0| 6e 69 6c 20 6e 65 77 20 | 75 70 2d 66 6c 61 67 20 |nil new |up-flag |
|00005f00| 66 6f 75 6e 64 20 64 65 | 70 74 68 20 22 23 5b 20 |found de|pth "#[ |
|00005f10| 09 5d 2a 5c 5c 28 69 66 | 5c 5c 7c 65 6c 69 66 5c |.]*\\(if|\\|elif\|
|00005f20| 5c 7c 65 6e 64 69 66 5c | 5c 29 22 20 74 20 6c 6f |\|endif\|\)" t lo|
|00005f30| 6f 6b 69 6e 67 2d 61 74 | 20 22 5e 5b 20 09 5d 2a |oking-at| "^[ .]*|
|00005f40| 23 5b 20 09 5d 2a 5c 5c | 28 69 66 5c 5c 7c 65 6c |#[ .]*\\|(if\\|el|
|00005f50| 69 66 5c 5c 7c 65 6e 64 | 69 66 5c 5c 29 22 20 70 |if\\|end|if\\)" p|
|00005f60| 72 65 76 20 22 5b 20 09 | 5d 2a 23 5b 20 09 5d 2a |rev "[ .|]*#[ .]*|
|00005f70| 65 6e 64 69 66 22 20 22 | 5b 20 09 5d 2a 23 5b 20 |endif" "|[ .]*#[ |
|00005f80| 09 5d 2a 65 6c 69 66 22 | 20 65 72 72 6f 72 20 22 |.]*elif"| error "|
|00005f90| 4e 6f 20 66 6f 6c 6c 6f | 77 69 6e 67 20 63 6f 6e |No follo|wing con|
|00005fa0| 64 69 74 69 6f 6e 61 6c | 20 61 74 20 74 68 69 73 |ditional| at this|
|00005fb0| 20 6c 65 76 65 6c 22 20 | 22 4e 6f 20 70 72 65 76 | level" |"No prev|
|00005fc0| 69 6f 75 73 20 63 6f 6e | 64 69 74 69 6f 6e 61 6c |ious con|ditional|
|00005fd0| 20 61 74 20 74 68 69 73 | 20 6c 65 76 65 6c 22 20 | at this| level" |
|00005fe0| 22 4e 6f 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 70 |"No cont|aining p|
|00005ff0| 72 65 70 72 6f 63 65 73 | 73 6f 72 20 63 6f 6e 64 |reproces|sor cond|
|00006000| 69 74 69 6f 6e 61 6c 22 | 20 70 75 73 68 2d 6d 61 |itional"| push-ma|
|00006010| 72 6b 5d 20 35 20 28 23 | 24 20 2e 20 32 33 37 33 |rk] 5 (#|$ . 2373|
|00006020| 30 29 20 22 70 22 5d 29 | 0a 28 70 72 6f 76 69 64 |0) "p"])|.(provid|
|00006030| 65 20 28 71 75 6f 74 65 | 20 63 2d 6d 6f 64 65 29 |e (quote| c-mode)|
|00006040| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+